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Uwazni Czytelnicy z pewnosci^^ do- 
strzegajq zachodzqce na lamach na- 
szego pisma zmiany; coraz wi^cej 
miejsca poswi^camy na prezentowa- 
n/e programow na wszystkie najpo- 
pularniejsze w Polsce mikrokompu- 
tery. Staramy si^, aby w wi^kszosci by- 
fy to programy uzytkowe — takie, 
ktore mog^ przydac si^ na co dz/en. 
Chcemy, aby nasze publikacje zaspo- 
kajafy n/e tyiko ,pierwszy g/dd'' in- 
formatycznej wiedzy, ale i satysfak- 
cjonowaty bardziej wymagaj^cych 
sympatykow mikrokomputerow. 

Chroniczny brak literatury facho- 
wej sprawia, iz uzytkownicy Atari czy 
Commodore . skazani sq niemal na 
obcoj^zyczne instrukcje, DIatego tez 
prezentuj^my ciekawsze rozwiqzanie 
programowe dotycz^ce poszczegol- 
nych typow mikrokomputerow, 

Liczymy oczywiscie zawsze na po- 
moc Czytelnikow. Dobrych pomys- 
fow z pewnosci^^ Warn nie brakuje, 
Nie brakowa/o ich nigdy — gorzej by- 
h z ich rozpowszechnianiem, Wiedza 
jest towarem najcenniejszym — szu- 
kajmy zatem talentow potrafi^cych 
robic wfaiciwy uzytek ze swych sza- 
rych komorek. 

PROGRAM 87 — to hasto konkursu 
oghszonego przez Ogolnopolskq 
federaci^ Kiubdw Komputerowych 
Miodych Mistndw Techniki, kidre- 
mu nasza redakcja wlernie sekundu- 
je* Konkurs odbfdzle sif w trzech 
eiapach: listopad — grudzieA 1986, 
marzec — maj 1987 i wrzesieA — li- 
stopad 1987 r. Programy oceniane 
bfdq w plfciu kategoriach: programy 
dydakiyczncj graficzne, gry kompu- 
terowe, programy sierujqce robotami 
I automatami oraz programy rozwiq- 
zujqce zagadnienia techniczne. 

Federacja Klubow Komputerowych 
ostro wzi^fa si§ do roboty. Jeszcze w 
tym roku rozstrzygni^ty b^dzie ko- 
lejny konkurs — tym razem na najle- 
piej pracujqcy klub komputerowy — 
a jest ich juz ponad 200 (to tyIko te, 
ktore na/ez^ do federacji), 

Komputery taniej^, ale jeszcze nie- 
pr^dko osi^gr)^ odpowiedniq cenf 
dia j^opularnej pomocy szkolnef — 
st^d tez cz^sto wfasnie klub kompu- 
terowy jest jedynq form^ kontaktu z 
tym sprz§tem. Bye moze problem 
zostanie rozwi^zany, kiedy ruszy pe\- 
par^ produkcja elwrowskiego Ju- 
niora, ale tymczasem wiedza informa- 
tyczna mtodziezy zaiezy cz^sto, na 
szcz^sciej od licznych zapalehcow, 
ktorzy uwazajq, ze bez komputera 
nie ma przyszfosci; skupiajq wokd/ 
siebie podobnych pasjonatow, zdo- 
faywa;^ srodki i organizujq klub kom- 
puterowy. Czasami o powodzeniu 
przedsi^wzi^cia decyduje przypadek. 
Tymczasem sukces powinien bye re- 
gufq i do f ego dqzymy, 
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SHARP PC" 1500 
K R Z Y U E 
UISSAJOUS 



10:eE£P 10, 100, 10 

- 0 - 
20: "A": CLEAR : 

USING : GRAPH : 

DEGREE :WArT 0 
30:INPUI "POZiOM 
. X=*';X:X^ABS X: 
^ X=INT X 
40:imUT "PION Y= 

"JVsYfABS y;y= 

INT Y 
50: IF <X-'-Y>=0GOTO 
'".10 

mt it^pcgr . "FAZA F= 

J F 

70:LIfM€?-rf <8, 0.)-a 
00,0>V9:SORSN 

80rR=75J'T=0:X2=0! 
Y2=0 

60/N •• 
100:XS«R*SJN <X«T) 
■..?>Y2=R*SIN CY*< 

110.'t:IWE -C0,0)-<X 

■ 2, Y2>,9 
ISBtFOR K=0TO N 
140: T=T+S:X1=X2:Y1 

=Yi ' 

150:X2=R*#J>J <X*T) 

:Y2=R¥SIN (Y*< 

T+F>> 
180: LINE -<X1, VD- 

CX2, Y2>, 1 ' 
170: NEXT K 
180: LINE -<X2, Y2>- 

(0,0), 9 
190: TEXT :END ~ 
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10:BEEP 1^100, 10 

0. 

20: "A": CLEAR : 

USING ;;WAIT 0 
30: INPUT "ILE BOK 

ow b-";b:b?=abs 

B.:B=INT B 
40: IF B<4GOTO 10 
50: INPUT "WIELKOS 

c q=*';q:q=abs 

Q:Q=INT Q 
60: IF Q=06OTO 10 
70:A=2»jT/B:DIM W< 

B 2) 

80: FOR K=0TO .(B-1 
) 

' 90:i1=K+i:W(n, U=Q 

*COS (K*A) 
100: wen, 2>=Q*SIN < 

K*A) 
110: NEXT:*: 
120: GRAPH :RLINE - 

(110, 0), 9 
130:SGRGN :RLINE - 

<Q, 0>, 9 
140::X2^tY2=0 
150: FOR L=»1T0 B 
160:Xl=W<i, 1):Y1=W 

<L, 25 
1?0:LINE -CX2, Y2)- 

<X:1, YD, 9 
180: FOR K=LTO B 
200:N=K+l:IF N>B 

, GOTO 240 • 
210SX2=W<N, 1):Y2=W 

<N,2) 
220:LINE -<X1, YD- 

CX2, Y2), 1 
230: LINE -<X2, Y2j- 

<X1,Y1), 9 
240: NEXT K:NEXT L 
250: LINE -(X2, Y2)- 

C0, 0),9 ■ 
260: TEXT sEND 




Elementy systemow mikrokomputerowych (1) 



Na pocz^tku I 

bytENIAC... 



Wyprodukowanle pierwszego mikroprocesora stato 
SI9 poczQtklem przewrotu, kojarzonego z drug^ rewo- 
Iucj4 przemystowQ, zwanq rewolucjq mikroprocesoro- 
WQ. MImo dopiero pi^tnastoietnlego Istnienia, uktad 
elektronlczny, nazwany w zwiqzku z technologic Jego 
wykonania mikroprocesorem, nabral historycznego 
znaczenia, znalazt wielostronne I niebanalne zastoso- 
wanla. 



Post§p w dziedzinie technologii ele- 
mentow elektronicznych powodowat 
kolejne kroki w rozwoju techniki kom- 
puterowej. Powstawafy kolejne gene- 
racje komputer6w. OczywiScie, warun- 
kiem koniecznym ich rozwoju, poza 
doskonaleniem technofogii. byl rozw6j 
koncepcji dzialania systemow oblicze- 
niowych i oprogramowania. 
. Elementy elektroniczne wkroczyfy do 
techniki ob.llczeniowej w 1946 r. Na 
Uniwersytecie Pensylwania skon- 
struowano wowczas pierwszy dziataj^- 
cy komputer ENIAC (Electronic Nume- 
rical Integrator and Computer). Wazyt 
30 ton (!), zuzywal 1 50 kW energii elek- 
trycznej (!), a zbudowany byl z 18 000 
lamp pr6zniowych i 1500 przekaznikow 
elektromagnetycznych. Na wykonanie 
operacji dodawania dw6ch liczb dzie- 
si§ciocyfrowych ENIAC potrzebowat 
0,2 milisekundy (1 ms = 0,001 s). a na 
wykonanie operacji mnozenia 2,8 ms. 
Komputer posiadai: procesor, kt6ry 
tworzyty: jednostka sterujqca i aryt- 
mometr; paml^d wewnf trznq, sktada- 
j^CQ sl§ z 20 rejestrow mieszczgcych 
liczby dzlesi^ciocyfrowe; pamlf6 ze- 
wnftrzn^, na pllku kart dzlurkowa- 
nych. 

Komputer ENIAC dziatat w nast§pu- 
jgcy spos6b. Jednostka sterujgca 
wprowadzata na wejScie arytmometru 
dan^ llczbowQ, zaplsan^ w rejestrze 
pami^ci lub na karcie dziurkowanej, a 
nastfpnie wysterowywata arytmometr. 
CO oznaczato wykonanie odpowiedniej 
operacji arytmetycznej. Wynik operacji 
wyprowadzany by* do jednego z rejes- 
tr6w. Kolejne dziatania procesora za- 
programowane byty w tzw. tablicy 
punktow. Rozwigzanie problemu obli- 
czeniowego oznaczato wprowadzenle 
wtaSnie tablicy punkt6w. ktorych kolej- 
no6c odpowlednich potgczert interpre- 
towana byte przez jednostk? steruj^c^ 
oraz przygotowanie danych na kartach 
dzlurkowanych. 



CzasochlonnoSd oraz niedogodnosd 
programowania oraz mata pojemnoSd 
pami^ci wewn^trznej, ktorymi to cha- 
rakteryzowat si§ ENIAC, .,poprawione" 
zostafy w koncepcji J. Eckerta 1 J. von 
Neumanna. Koncepcja ta ukazywata 
ogromn^ rol§ pami^cl wewnftrznej 
(operacyjn«|) i jej wptyw na architek- 
tur§ komputera. a polegata na tym, ze 
jednostka sterujgca mogta wykorzy- 
stywad, zapisane w tej samej pami^ci. 
dane 1 Instrukcje programu (rozkazy) 
— operuj^ce na tych danych. 




Architektura komputera. zgodnego z 
tg koncepcji. zawierad miate procesor, 
tor przesytenia danych 1 pami^d. Pro- 
cesor tworzyty arytmometr 1 jednostka 
sterujQca, kt6ra zawierate m.in. licznik 
rozkazow i rejestr rozkazow. Pami§d 
operacyjna zawierata, opr6cz komorek 
pamifci. rejestr adresowy pami§ci. 

CykI pobrania rozkazu przez kompu- 
ter 0 takiej architekturze wyglgdal na- 
stfpujgco. W chwili poczgtkowej licznik 
rozkazow ma wartoSc zerowg. Zawar- 
tosd licznika przesytena jest do rejestru 
adresowego pamigci. Po czasie. zwa- 
nym czasem dost^pu do paml^cl. za- 
wartoSd kom6rki 0 adresie zerowym 
przesytena jest do rejestru rozkaz6w. 
Rozkaz po pobraniu jest interpretowa- 
ny przez procesor, a nast§pnie wyko- 
nywany. 



Rozkaz procesora skteda si§ z czf d- 
ci operacyjnej, wskazuj^cej, jak^ ope- 
racji ma wykonad procesor oraz z 
czfdci adresowej, wskazuj^cej adres 
komorki pami§ci (adresy komorek pa- 
mi^ci), w ktorych, zawarte sg argumen- 
ty tej operacji. 

Do momentu sformutowania kon- 
cepcji Eckerta i von Neumanna do bu- 
dowy komputerdw wykorzystywano 
pr6iniowe lampy elektronowe z 
trzema elektrodami: katod^. anod^ i 
siatkg, lampy -zwane triodami. 0 zdol- 
nosciach wzmacniajgcych. Jako ele- 
menty logiki wykorzystywano przeka- 
inlki elektromagnetyczne. Pami§d 
zewn§trzng stanowity wspomniane 
wczeSniej kaiiy dziurkowane (perfo- 
rowane). na ktorych informacje kodo- 
wane s^ za pomocg tzw. kodu Hollerit- 
ha. Konieczne stato si? konstrukcyjne 
rozwigzanie „duzej" pami^ci operacyj- 
nej. 0 pojemnosci kilku tysigcy komo- 
rek. 

W komputerze EDVAC, uruchomio- 
nym w 1 950 r.. do budowy pamifcl wy- 
korzystano li^ciowe iinle op6inialq- 

ce. Odznaczaty si? duzg szybkoScig 
dzratania, ale mat^ pojemnoscig i byty 
szkodliwe dia ludzi, zostaty wi§c szybko 
wy parte. 

Rozpoczfta si? era panowania tech- 
niki komputerowej. Opracowywano 
nowe technologie i konstrukcje. poszu- 
kiwano nowych rozwigzar^ funkcjonal- 
nych. 

Powstaty trzy podstawowe typy pa- 
mi^ci eiektromechanlcznych: pa- 

mi§d bfbnowa, pami?d taSmowa i pa- 
mi?d dyskowa. 

W pamlfcl bfbnowej gtowice mag- 
netyczne zapisujg (przez lokalne na- 
magnesowanie) lub odczytujg infor- 
macje z wirujgcego b§bna. na ktdry 
naniesfony jest materiat magnetyczny. 
2 uwagi na koniecznoSc ustawienia 
gtowic na odpowiedni obszar b?bna 
pami?d b?bnowa jest powolna, ale ma 
wazng zaietf — duz^ pojemnosd. Czas 
dost?pu do informacji zazwyczaj wy- 
nosi kilkadziesigt ms. Pami§d umozli- 
wia zapisanie na jednym bfbnie do mi- 
llona bitdw (bit — binary digit — naj- 
mniejsza jednostka do reprezentacji 
danych dwuwartoSciowych. czyli zer 
lub jedynek liczbowego systemu dwdj- 
kowego). 

dokohczenie pa str. 4 
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dokonczenie ze str. 3 

Pami^l na tadmie magnetycznej 

stosowane do dzis, ze wzgl^du na 
znaczn^ pojemnosd. mimo stosunko- 
wo dfugiego czasu dostfpu do po- 
trzebnej informacji. 

Pamlfci dyskowe, wykorzystuj^ce 
lokalny zapis magnetyczny, znalazty 
trwate zastosowanie w komputerach. 
ze wzglfdu na duzg pojemnosc. rzfdu 
millard6w bit6w w konstrukcjach wie- 
lodyskowych. Czas dost^pu do infor- 
macji wynosi kilkanascie ms. 

Wymlenione pami^ci elektromecha- 
niczne stosowane sg jako masowe 
pamif ci zewnftrzne. 

Bardzo duzy wpiyw na rozwoj 
techniki komputerowej wywariy rdze- 
nlowe paml^ci fferrytowe. Charakte- 
ryzowafy si? one duzg szybkoScig 
odczytu, rz^du kilku mikrosekund 
(1 ^s = 0.000001 s ). Byfy one wyko- 
rzystywane jako pami^ci wewn^trzne, 
wyparte zostaty dopiero przez pamlfcl 
p6tprzewodnlkowe. 

Odkrycie w 1948 r. przez W. S.ho- 
kleya, J. Bardeena i W. Brattaina no- 
wego. polprzewodnikowego elementu 
etektronicznego, tranzystora, ktory 
zastgpif jedyny dotgd element wzmac- 
niaj^cy — lamp? elektronowq, to po- 
czgtek ery tranzystorowej w elektroni- 
ce i poczgtek II generacji techniki 
komputerowej. 

Zanim przejdziemy dalej, kilka zdart 
0 innych konstrukcjach komputero- 
wych I generacji. 

W 1951 r.firma UN I VAC polecate 
swoj komputer UNIVAC— 1. zbudowa- 
ny z 5000 lamp i z 1 1 2 rtgciowych linii 
op6zniajQcych. mieszczgcych 1 000 
liczb dwunastocyfrowych. Wykonywa* 
on 45 rozkaz6w z wyrdznlong czgsci^ 
operacyjng i czgscig adresowg (trzy- 



cyfrowQ). Do komunikacji operators z 
systemem po raz pierwszy wykorzy- 
stano elektryczng maszyn? z klawia- 
turg, natomiast do zapami^tywania du- 
zych zbior6w danych wykorzystywano 
tasm? magnetyczny. Operacj? doda- 
wania dw6ch liczb dwunastocyfrowych 
UNIVAC-1 wykonywa* w 0.5 ms. ope- 
racj? mnozenia w 2.5 ms. Juz w rok p6- 
zniej w komputerze UNIVAC 1 103 jako 
pamif c operacyjny zastosowano rdze- 
nie magnetyczne. Zwi^kszyto to pi?d- 
dziesi^ciokrotnie szybkoSc UNIVAC 
1 1 03 w stosunku do UNIVAC'-I . 

W 1 952 r. firma IBM weszia na rynek 
komputerowy z udang (nie pierwszy) 
konstrukcjy. komputerem 701. Zawie- 
raf on 4000 lamp i 1 2 000 diod germa- 
nowych. Jako pami^d operacyjny za- 
stosowano 72 pamiftajyce lampy ka- 
todowe, 0 czasie dost^pu ^2 ^s. W 
komputerze zastosowano kilka urzy- 
dzen wejscia — wyjScia systemu: czyt- 
nik i dziurkark? kart. drukark§ o szyb- 
kosci 1 50 wierszy/minut?. tasm? 
magnetyczny o g? sto6ci zapisu 1 00 bi- 
t6w/cal. IBM 701 wykonywaf operacje 
na danych 36-bitowych, operacja do- 
dania dwoch liczb trwata 62.5 /iS, ope- 
racja mnozenia 500 ^s. Kolejne mode- 
le firmy IBM 702. 704, 705 miaiy pa- 
mif ci rdzeniowe. W nast§pnych mode- 
lach RAMAC 305 i 650 jako masowy 
pami^c zewngtrzny zastosowano pa- 
migci dyskowe. panele ztozone z 50 
dysk6w. Na kazdym z dyskow znajdo- 
wafo si? 100 6ciezek, o pojemnosci 
10 000 znakow kazda. Pami§d wyroz- 
niate si? wi?c olbrzymiy pojemnoSciy. 

Przedstawiony wyzej etap rozwoju 
techniki komputerowej charakteryzo- 
waf si§ pogoniy za parametrami tech- 
nicznymi- Niewiele uwagi po^wi?cono 
systemom operacyjnym i j?zykom pro- 
gramowania. sterowanie pracy kompu- 



tera oznaczalo zmudne pisanie pro- 
gram6w w jfzyku procesora. Jako 
pierwsza tymi problemami zaj?ta si? 
firma UNIVAC. Komputer UNIVAC 
1 1 03 wyposazony zostat w interpreter, 
program tlumaczycy na j?zyk proceso- 
ra kolejne wiersze programu. Po prze- 
ttumaczeniu danego wiersza procesor 
komputera wykonywat odpowiednie 
rozkazy. nast?pnie czekaf na przetfu- 
maczenie kolejnego wiersza programu. 

W firmie UNIVAC uruchomiono r6w- 
niez program translatora, ttumaczy- 
cego na j?zyk procesora od razu caty 
program. Po przetlumaczeniu procesor 
wykony war wszystkie rozkazy. Taka 
metoda nazywana jest kompllacj^. a 
program kompllatorem. 

Bardzo wazny sprawy jest organiza- 
cja pracy systemu komputerowego 
czyli wspotdzialania wszystkich ele- 
ment6w. Zbior program6w obejmujy- 
cych te zagadnienia ^nazywa si? sy- 
stemem operacyjnym. 

Kolejnym problemem sy jf zyki pro- 
gramowanla, umozliwiajyce pisanie 
programow w j?zyku zblizonym do 
ludzkiego. mozliwie dalekim od j?zyka 
procesora. Dany j?zyk jest zazwyczaj 
przeznaczony do rozwiyzywania prob- 
lemow z pewnej dziedziny. WSr6d j?zy- 
k6w programowania wspofczeSnie 
..panujycych" najwazniejsze to: AL- 
GOL, do opisu algorytm6w obliczen; 
FORTRAN, do zastosowan naukowo- 
-technicznych; COBOL, do przetwa- 
rzania duzej liczby danych; BASIC, do 
rozwiyzywania probJemow naukowo- 
-technicznych; C, do prac nad syste- 
mami operacyjnymi; PASCAL, do ope- 
racji na ztozonych strukturach danych; 
LOGO, do nauki podstaw informatyki; 
PROLOG, do programowania logi- 
cznego i oprogramowania robotow. 
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Wspomniane problemy oprogramo- 
wania wi^ksze odzwierciedlenie zna- 
\az\y w komputerze UNIVAC III. 

Opanowanie technologii tranzysto- 
r6w. zwfaszcza tranzystorow btpolar- 
nych. to podstawa konstrukcji kompu- 
terow II generacji. Tranzystory unipo- 
larne, inaczej polowe, konstruowane 
na strukturze MOS (Metal — Oxide — 
Semiconductor), wykorzystywane byty 
tyiko w ukfadach ptryferyjnych sy- 
stem6w komputerowych. Technologia 
MOS nabrate znaczenia dopiero w la- 
tach siedemdzlesigtych. 

W latach szeSddzlesigtych poczy- 
nlono kolejny krok. na jednym krysztal- 
ku polprzewodnlka umieszczono wl^- 
cej niz jeden element. Zacz^to kon- 
struowad uklady scalom. zawieraj^ce 
Wiele element6w — tranzystor6w. diod. 
rezystor6w Itp. 

Uklady scalone, w zaIeznoSci od 
liczby element6w w strukturze pol- 
przewodnlka. mozna podzielid m.in. na: 
malej skali integracji SSI (Small Scale 
of Integration) — zawierajgce do 100 
tranzystor6w w swojej strukturze i 
Sredniej skali integracji MSI (Medium 
Scale of Integration) — zawierajgce do 
1000 tranzystorow, 

Uklady scalone SSI i MSI posluzyiy 
do konstrukcji komputerow HI genera- 
cji. Wymienione uklady scalone wyko- 
nywane byfy gidwnie technologiami 



wykorzystujQcymi tranzystory bipolar- 
ne 2 technologii tych najwi^ksze zna- 
czenie osiggn^la TIL (Transistor — 
Transistor Logic), ktora kroluje na ryn- 
ku elektronicznym do dziS. 

W zwigzku z wprowadzeniem ele- 
ment6w pdtprzewodnlkowych, za- 
pewniajgcych wzrost szybkoSci dziala- 
nia i niezawodno^d. zmniejszenie po- 
boru mocy oraz spadek koszt6w wyko- 
nania oraz w zwiazku z pracami nad 
oprogramowaniem. sprz§t komputero- 
wy stal si? bardziej dost^pny. pow- 
szechniejszy. Bardzo popularnym byl 
komputer IBM 1 360 oraz najszybszy do 
1 979 r. komputer ILLIAC IV, wykonujg- 
cy 200 min rozkaz6w/sekund?(!). 

Na rynku komputerowym zacz^iy 
panowac dwie tendencje. Pierwsza z 
nich to upowszechnienie szybkich i du- 
zych komputerow- Druga to miniatury- 
zacja systemow komputerowych. przy 
zachowaniu parametr6w technicznych 
duzych systemow. 

W 1970 r. firma Digital Equipment 
Corporation wprowadzita PDP-1 1 , 
komputer o bardzo oryginalnej archi- 
tekturze. Wszystkie elementy tego 
komputera: procesor. pami^d i urzg- 
dzenia wej§cia-wyj6cia. dolgczone byty 
do jednej wspolnej szyny. 

W tym czasle opanowano technolo- 
gie wytwarzania uktadow scalonych 
duzej skali integracji LSI (Large Scale 



of Integration), zawieraj^cych do 
10 000 tranzystorow w jednej struktu- 
rze polprzewodnikowej. Rozpocz^la si? 
era dominacji technoioflif MOS. zwla- 
szcza PMOS. NMOS. CMOS a ostatnio 
CHMOS. W 1971 r. zaprojektowano i 
wykonano pierwszy mlkroprocesor. 
Rozpocz?la si? IV generacja kompute- 
row. UWady LSI to na pewno najwifk- 
sze osi^gnifcie elektroniki, od czasu 
wynalezienia tranzystora. 

Lata osiemdziesi^te to nowe uktady 
scalone. VLSI (Very Large Scale of In- 
tegration) 0 olbrzymich mozliwoSciach. 
PrzyWadowo koprocesor arytmetyczny 
firmy MOTOROLA MC 68881. wyko- 
nany w technologii CHMOS. przezna- 
czony do wspolpracy z 32-bitowym 
mikroprocesorem M 68020. zawiera 
155 000 tranzystorow vj strukturze o 
wymiarach 27 na 33 mm. 
-Tak w skrocie przeszliSmy do kom- 
puter6w nam wspolczesnych. Reasu- 
mujgc — komputer to: architektura i jej 
elementy sWadowe. czylj hardware: 
system operacyjny i j?zyki programo- 
wania, interpretery i kompilatory. czyli 
software. W nast?pnych numerach zaj- 
miemy si§ tym pierwszym. czyli ele- 
mentami elektronicznymi. z kt6rych 
zbudowane komputery. 

Jacvk WOJTALA 




POSZERZANIE TABLiCY ZMIENNYCH 
Spectrum 46K 



Jak 2*wymiarow4 labile? zmlennych tek* 
stowych nS, w ktdraj przeehowujesz np. 
pewnt llczb? nazwisk, powi^kazye o kllka 
zmianpych? Program wczyta zmiennq (linia 
9900). ustail ie] wymiary (linle 9902—9910), 
zapyta o liczbf dodatkowych nazwisk <iinie 
9912--9916), powi9k$zy odpowiadnio tabii* 
Cf (linie 9916—9932) oraz nagra no- 
w« tat^iicf na taim^ (ilnia 9936). Aby przya- 
pietzyd te operacja nie uiywamy pftii 
FOR— NEXT, Poniiazq sekwencjf motesz 
sto$owa6 jako czfit wtasnych, wiQkszych 
baz danych. 



SPECTRUM 



9900 LOAD "nazwiska" DATA niO 
9902 LET n»(l)Bn«(l> 
9904 RAND0HI2E FN p (23629) 
9906 LET i<yiniart« FN p< FN p (23670) 
9908 LET wyiniar2B FN p( FN p (23670) -2) 
9910 INPUT -lie nazMifik ©xtra? 
9912 IF 11»<0 OR INT ileOile THEN BOTO 
9910 

9914 IF WDT ile THEN 8T0P 
9916 DIM rt(wyiniarl,wymi«r2) 
9918 l-ET^a«l 

9920 IF a<«Myffllarl THEN LET r«(A}«n«(a) 

I LET a«a-*-lx GOTO 9920 

9922 DIM n«(wyiniarl-»-ilCyiiiyfflUr2) 

9924 LET a»l 

9926 IF a<»wyffliarl THEN LET n«(#t)»r«(a) 

X LET a«a-Mi (50TO 9926 

9928 LET a»l ^% 

9930 IF a<»ilc THEN INPUT "nazwtuka "| ( 

Mymiarlt-a), LINE n«(Hymiarl^a) i LET 

+li GOTO 9930 , 

9932 DIM r«(l) ^ 

9934 SAVE "nazwiska"* DATA nao 

9940 DEF FN p(a}BpEEK a+2S6t PE^ (a+D 
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„Kto zablerze ostatnle Jabtko ten wy- 
grat" Twoim przeciwnikiem Jest SPEC- 
TRUM. Znajdujecie Jablka i bierzecie |e na 
zmianf. Ostatnle Jabtko Jest najsmaczniej- 
8ze. Czy komputerzawsze musi )e zabra6? 
Sprdbuj odkryd ^system" I zaczni) wygry- 
wa6. W trakcle zastanawlania si? stuchasz 
muzyki aieatorycznej (przypadkowej — II- 
nla 260). Jetell chcesz zawsze zaczyna6 
gr? iako plerwszy skasu) llnl? 230. 

Powodzenia I... smacznego! 

0>REM Jerzy uozniaK 

10 BORDER 0: PAPER 0: INK 7 
20 CLS 

30 PRINT " KTO ZRPIERZE 05TRT 
HIE JfiB£KO" 
4.0 PRINT 

50 PRINT TEN UYGRfi !" 

60 PRINT 

70 PRINT " *UOLNO BRRC 1,5 LUB 
3 JRBEKR," 
80 PRINT 



90 

100 REM LOSOURNIE JRB£EK 
110 LET p=INT CRND*14)+11 
120 ■ 

130 PRINT Pit S, 18; "JRBEEK "jp 
140 

150 PRINT fa 11,0; 

" C TO P ) 

160 

170 PRINT RT 12,0; "OOQOOOOOQQOO 
OOOQQQGiOQOQOQ" C TO p) 
160 



SPECTR UM 



190 REM MIGRC2 
200 POKE 55912,143 
210 

220 REM L0S0URNIE=KT0 ZRCZYNR 
230 IF RND<0-5 THEN GO TO 360 
240 PRINT RT 16,0; 

"ILE JRB£EK ZRBIERRSZ 7 " ; 
250 LET r=CODE INKEV$-48 
260 PRUSE 12: BEEP 0.01,RND*30 
270 IF r <1 OR r >3 

THEN GO TO 550 
230 PRINT r 

290 PRINT RT 18,23; " " 
300 LET P=P-r 
310 PRINT RT 9,2; 

"20STR£0 ••; p; " 

350 GO SUB 540 

330 IF p<l THEN GO TO 510 

340 

350 REM KOMPUTER MYSLI 
360 LET n=INT rp/4)*4 
370 IF p=ri THEN LET 

r=INT (RND*3+1) 
380 IF pon THEN LET f =p -n 
390 LET P=p-r 
400 PRUSE 60 
410 BEEP l,10*r 
420 PRINT RT 18,5; 

"SPECTRUM 2RBIERR " ; f 
430 PRINT RT 16,23;" " 
440 GO SUB 540- 
450 PRINT RT 9,2; 

"ZOSTflfO "; p; " 

460 IF P<1 THEN GO TO 480 

470 GO TO 540 

480 PRINT FLRSH 1;RT 20,2; 

UYGRRE KOMPUTER 1 ! ! 
490 BEEP 1.20: BEEP 2,8 
500 PRUSE 100: GO TO 10 
510 PRINT FLRSH l;RT 20,2; 

TY UYGRR£ES ! M 
520 BEEP .1,50: BEEP 2,20 
530 PRUSE £00: GO TO 10 
540 FOR 1=1 TO r 

550 PRINT RT 12,p;"XXX"( TO f) 
560 BEEP .1,10*1- 

57© PRINT RT 15,p;" "( TO D 
5S0 PRUSE 10 
590 NEXT I 
600 RETURN 

610 Sf\VE "ZRBIERRNKR" LINE 1© 
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Nasz program nazwaiiimy „Ciy' 
tenle myill", gdyi mote on sprawlai 
takle wraienie. 

Aby pothjgiwai sif „odczytywa- 
czem myiir, wystarezy znajomoii... 
alfabetu: teMleJ znaJomoiA KOLEJ- 
NOdCi LITER ALFABETU LAClN- 
8KIEG0. 

Przyktadowo na pytanie: 
PRZED C ? T=1 N=0 
naleiy odpowiedziee „TAK", czyii 
wypaicowa6 1, gdy pomyilan^ liters 
JestAiubB. 

Jeteli zai pomyilanq liters Jest 
C,D,E,...,Z, to naleiy odpowfiedzlet 
.,NiE", czyii 0. Uwaga: iitera C NIE 
JEST PRZED C. 

Po zatadowaniu programu po- 
myiimy Jakii wyraz. Na poczqtek 
kr6tki: UL. LAS, KOT. 

Program wywotuie RUN .^X". Od 
tego momentu bardzo uwainie od> 
powladaimy na pytanla. (Nasz Jeden 
btqd psuje zabawf). 
Gdy na pytanie 
OSTATNiA T=1 N=0 
czyii „czy to byla OSTATNIA Iitera 
pomyilanego wyrazu" — gdy na py- 
tanie odpowlemy nTAK" (1), w6w- 
czas komputer „odczyta pomyilany 
wyraz". 

I 

CZYTANIE... MY$LI. Wykorzystuje 
sl« tu zasad« DYCHOTOMil (po- 
dziatu na dwie przeclwstawne czf i- 
cl). Najplerw catoi6 alfabetu dzlelh 
my na p6t. Wskazanq przez odpo- 
wiedi pot6wk9 dziellmy na 6wiartki. 
Potem na „6semki, szesnastki i trzy- 
dzlestkldw6Jkl". 

Poniewai 2X2X2X2X2 = 32, 
zai liter jest 26, zatem wl^kszoifi li- 
ter „odczytu)emy" po PigCIU odpo- 
wiedziach, niektdre zai po CZTE- 
RECH. 

2yczymy dobre) zabawyl 



JANUSZ MILLER 
SHARP PC- 1500 



CZYTANIE nVSLI 



f ■ !l 



600: "C":CLS 
610:UAIT 0:PRINT " 

PRZED ";z*;"? 

T=l N=0 " 
620: CURSOR 16: 

INPUT " ";D: 

CLS : RETURN 
630: "D": USING 
640:Z*="N":GOSUB " 

C":IF D=0GOTO 

820 

650:Z#="H":GOSUB " 
C":IF D=0GOTO- 
750 

660:Z*="E"':GOSUB " 
C":IF D=0GOTO 
720 

670:Z*="C":GOSUB " 
C": IF D=0GOTO 
700 

680:Z*="B":GOSUB " 
C":IF D=0LET X 
*="B": RETURN 
690: X$="A": RETURN 
700:Z$="D":GOSUB " 
. C": IF D=1LET X 
$="C": RETURN 
710:X*="D":RETURN 
720:Z$="G":GOSUB " 
C": IF D=0LET X 
$="G": RETURN 
730:Z*="F":GOSUB " 
C":IF D=0LET X 
$="F": RETURN 
740: X$="E": RETURN 
750:Z*="K":GOSUB " 
C": IF D=0GOTO 
790 

760:Z$="J":GOSUB " 
C":IF D=0LET X 
$="J": RETURN 

770:Z*="r':GOSUB " 
C":IF D=0LET X 
$="I":RETURN 

780: X$="H": RETURN 

790:Z$="n":GOSUB " 
C":IF D=0LET X 
$="{1": RETURN 



800:Z^="L":GOSUB " 
• C":1F D=0LET X 

$="L": RETURN 
810:X*="K":RETURN 
820:Z$="T":GOSUB " 

C":IF D=0GOTO 

900 

■ 830:Z*="Q":GOSUB " 
C": IF D=0GOTO 
870 

840:Z*="P":GOSUB " 
C":IF D=0LET X 
.$="P": RETURN 

850:Z*="O":GOSUB " 
C":IF D=0LET X 
*="0": RETURN 

860: X*="N": RETURN 

870:Z*="S":GOSUB " 
C":IF D=0LET X 
$="S": RETURN 

880:Z$="R":GOSUB " 
C":IF D=0LET X 
$="R": RETURN 

890: X*="Q": RETURN 

900:Z*="W":GOSUB " 
C":IF D=0GOTO 
940 

S10:Z*="U":GOSUB " 
C":IF D=0LET X 
$="U": RETURN 

920:Z$="U":GOSUB " 
C":IF D=0LET X 
$:i"U": RETURN 

930: X*="T": RETURN 

940:Z*="Y":GOSUB " 
C":IF D=0GOTO 
970 

950:Z*="X":GOSUB " 
C": IF D=0LET X 
*="X": RETURN 
960: X*="W": RETURN 
970:Z*="Z":GOSUB " 
C":IF D=0LET X 
$="Z": RETURN 
980: X$="Y": RETURN 
1000: "X": CLEAR : 

UAIT :CLS 
1010: K=K+1! WAIT : 
PRINT "LITER 
A'' * K 

1020:GOSUB "D":Y* 

1030: INPUT "OSTAT 

NIA? T=l N=0 
";d:IF D=0 

GOTO 1010 
1040:WAIT •:PRINT 

"KRYPTONin " 

; Y*:END 
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Sztuki i sztuczki 

Zmienne systemowe 
ROM SPECTRUM 



DIa tych. kt6rzy poznali juz BASIC, 
proponujemy spojrzenie w te sfery pa- 
^ migci. kt6re pozwolg wszechstronniej 
wykorzystac mozliwosci SPECTRUM. 
Dobra znajomosd zmiennych syste- 
mowych jest wygodna dia programisty; 
utatwia prac? i pozwala gt?biej poznad 
system. Wi^kszosc sztuk i sztuczeK ja- 
kie mozna wydobyd z tego obszaru. 
postaramy si§ przedstawic w kilku naj- 
blizszych numerach. 

Klawlatura 

KSTATE 23552..9 
' LAST- K 23560 
REPDEL 23561 
REPPER 23562 
PIP 23009 

Co 20 ms procedura przerwar^ ma- 
skowalnych o adresie 56 przeszukuje 
klawiatur? z tym samym celem — od- 
szukania przycisni^tego klawisza. W 
przypadku pozytywnym dodatkowo na- 
stgpuje dekodowanie na system ASCII. 
Aktualny stan klawiatury zoslaje umie- 
szczony w grupie bajtow KSTATE. kto- 
mozna podzielid na dwie cz^sci po 4 
bajty. Oznaczmy adresy 23552...5. jako 
BhB2, B3, 84 za6 adresy 23556..9. ja- 
V ko Ah A2. A3, A4, 

Wclskiamy klawisz. Reagule grupa 
6wQa(Ah.A4) &a\{A1,k\6ry miaf do- 
tgd wartoSc 255. co oznacza, ze zaden 
klawisz nie byt wci^nif ty, szybko reagu- 
je kodem naszego guzika. Przy czym 
jest to kod cyfry albo duzej litery. Nie 
ma wi^c znaczenia 6\a A1, czy przy- 
ciSnigto co6 z CAPS SHIFT, czy SYM- 
BOL SHIFT. Wyj^tkiem jest reakcja na 
oba shifty (kod 14). Z chwilg przyclS- 
ni^cia pary innych klawiszy (opr6cz 
obu shift6w) tadowany jest kod pier- 
wszego wykrytego. 

Natomiast A4 pokazuje juz baWziej 
sprecyzowany kod ASCII. Uwzgl^dnia. 
czy naciSni^to guzik z CAPS, czy 
SYMBOL SHIFT. Teraz wystarczy juz 
^ " tyiko skupid si? nad dtugoSci^ trwania 
nacisku. Z chwilg wykrycia klawisza w 
A3 laduje si? wartoSd zmiennej syste- 
mowej REPDEL. Jest to czas mierzony 
w 50. cz?6cfach sekundy. po tym 
czasie klawisz zostanie uznany za 



przyci^ni?ty powtornie. Standardowo 
ma ona warto6d 35. czyli ok. 0.5 s. Z 
kazdym przerwaniem A3 jest dekre- 
mentowane (zmniejszene o 1 ). az do 
zera. Komputer wie wtedy. ze dalej 
trzymamy palec na klawiszu. Je6li je- 
stesmy w edytorze. nastgpi drug! wyd- 
ruk znaku o kodzie A4 dIa Irybu malych 
liter (kursor L) lubo kodzie y^t dIa trybu 
duzych liter (kursor C). O tym. ze kom- 
puter „czuje" nacisk palca. niech 
swiadczy ponizszy test: 



lO POKE 23562, t 

20 IF NOT LEN INKEV* THEN GOTO 20 

30 IF LEN tNKEV* THEN BOTO 30 

40 IF PEEK 235S8 +3 >« PEEK 23SA1 T 

HEN PRINT -krotko"! STOP • 

SO IF PEEK 23S58 ♦11 >■ PEEK 23Sil 

TTOJ PRINT -mr««Jnto-i STOP 

60 PRINT -dlUQO" 



Kontynuuj^c. dalsze samopowtarza- 
nie zaiezy juz od zawartoSci zmiennej 
systemowej REPPER. Decyduje ona o 
odst^pie czasowym, w jakim ma po- 
wtarzatS si? uznawanie trzymanego 
klawisza za ..ponownie wci^ni^ty" po 
wyzerowaniu zawartoScI REPDEL w 
A3. Normalnie jest tarn wartos6 5. co 
oznacza 0.1 s. Samopowtarzanie od- 
bywa si? na tej samej zasadzie co 
wczeSniej, czyli na dekrementacji. Je6li 
teraz A3 wyzeruje si?, zawartos6 REP- 
PER ladowana jest tam znowu itd. Gdy 
podczas'tego procesu przycisniemy 
inny klawisz. system zignoruje go, chy- 
ba ze puScimy ten pierwszy. Wtedy na- 
st^pi przerzut ha kom6rki B1 ... B4 1 caly 
omowiony proces powtarza si?. W A1 
pojawi si? 255. zai precyzyjny kod 
ostatnio przyciskanego klawisza zosta* 
je umieszczony w zmiennej LAST— K i 
nie zmieniany, poki nie zostanie wykry- 
ty nowy klawisz. 

UpraszczajqiC pierwsze powl6rzenie 
guzika nastgpi po czasie zawartym w 
REPDEL. a kazde nast?pne po czasie 
zawartym w REPPER. 

Nalezy podkresli6. ze guzik naciSni?- 
ty z CAPS SHIFT tub SYMBOL SHIFT 
jest traktowany jako pojedynczy. Pozo- 
staje do wyjasnienia zawartos^ A2 lub 
B2. Jesli nie naruszamy klawiatury, sg 
tam zera, lecz po wykryciu nacisku po- 
jawia si? tam warto66 5 dekremento- 



wana za kazdym nast?pnym przerwa- 
niem. W praktyce oznacza to. ze kom- 
puter 5 razy musi mied potwierdzenie 
nacisku (0,1 s). i dopiero wowczas za- 
reaguje dekodowaniem klawisza. Stuz- 
bista? Nie tylko. Otoz zwarcie stykow 
klawiatury powoduje ich nieznaczne 
drgania. co mogtoby spowodowad bt?- 
dy w wykryciu klawisza. Spokojne od- 
czekanie przez system daje wl?kszq 
pewnoSd uzytkownikowi. 

Poza otrzymywaniem szeregu infor- 
macji 0 stanie klawiatury, w zasadzie 
zmienna KSTATE nie jest wykorzysty- 
wana do innych celow. Zmiana war- 
tosci kt6regokolwiek bajtu nic nie da. 
gdyz uaktualnianie danych nasl?puie 
piorunuj^co szybko. Zmieniad mozemy 
warto^ci REPPER i REPDEL. modyfiku- 
jgc w ten spos6b parametry samopo- 
wtarzania. Dobre efekty dIa zaprzyja- 
znionego juz dobrze z klawiatury daje: 
POKE 23562.1 

POKE 23561 .30 , . . 

POKE 23609.40 ' 

Ten ostatni adres (23609), to zmien- 
na systemowa PIP. Decyduje ona o 
dfugosci dzwi?ku wydanego z gtoSnika 
przy nacisku na klawisz.. Poczgtkowo 
zawlera 0. co objawia si? cichynrt trza- 
skiem (ang. click). Podwyzszenie o 1 
powoduje zwi?kszenie czasu trwania 
dzwi?ku 0 ok. 1/765 s. 

Na zakortczenie kilka sztuczek. Po- 
nizszy program przeiyczajgcy wydruk 
tekstu z ekranu na druKark? i odwrotnie 
jest pretekstem do rezygnacji z dwu- 
znacznej funkcji INKEYS: 

lO PRINT "DrukATk* / Ckr«n* ~' 

19 PAUSE li PAUSE O I 

20 LET «« PEEK 23556 

30 IF «« CODE "D« THEN LET f < 
40 IF CODE -E* THEN LET B>2 
50 PRINT ta| -taksf* 

DIa programistow zniech?conych 
niedostatkiem instrukcji PAUSE 0 ma- 
my dobr^ rad?. Sekwencja: 
10 PAUSE 0 

20 IF PEEK 23558 < 35 THEN GOTO 
10 

dziata znacznie lepiej. ^ : 

Brak reakcji pojedynczych klawiszy 
SHIFT rowniez mozna oming6. Poniz- 
szy program zakoi*iczy si?. jeSli rze- 
czywiScie przycisniemy dowolny kla- 
wisz* , , 

lO PRirfT •HAT 1,8| "dowolny fclattiM 
II 

20 LET a« IN 2S4 

30 IF ««25S OR ••191 THEN SOTD 20 
40 STOP 

W najblizszym numerze troch? 
szczeg6l6w o pami?ci RAM. 

KrzytztofMAMCARZ 
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MOZNA INACZEJ 

Chcialbym podzielic sif z Czytelnikami „IKS-a" kll* 
koma uwagami dotycz^cymi przedstawionych w nu*- 
merze 1/86 prograni6w „YVykresy" i „Mapa Polski". 

Wartosc djrdaktyczna programu ..Wykresy" }est 
znacznie obniiona przez obarczenie uzytkownika ko* 
niecznosci^ podania warcosci maksymalne} i mlni- 
malnej funkcii w rozpatry wanytn przedzialc. Wartolcl 
te — nivzb^dne do prawidlowego wyrysowania uktadu 
wspolrz^dnych i opisu osi — mog^ i muszii bye obll* 
czone przez komputer, na podstawie przepisu funkc}i i 
przedzialu zmiennosci zmiennej niezalcznej x. Obli* 
Gzenie tych wartoscl dla wielu niebanalnych funkc)! 
nie jest rzeczq prost^, dlatego tez zadanie to powinna 
wykonac ipaszyna. Podanie bl^dnego zakresu ztnien* 
nosci wartosci funkcji powoduje caYkowite znieksztal* 
cenie wykresu (dla przyktadu proszf sprawdzict 
y = SINX, XMIN = 0, XMAX = 5, YMIN = 0. 
YMAX = 2). 

Przedstawiony program nie sporz^dzi wykresu 
funkcji stale} y(x) = a. Funkcja stata, aczkolwiek 
bardzo prosta, musi bye przez program akceptowana. 
Program nie poradzi sobie rowniez z funkc|ami nie* 
ci^tymi w zadanym przedziale, np. y(x) = 1/x czy 
y(x) = (SIN X). 

W przypadku podania przedzialu zmiennosci argu* 
mcntu X mniejszego od 0.5 np. (0.1, 0.2) wygenerowany 
opis osi b^dzie bl^dny. Prawidlowc dzialanie progra- 
mu dla malych diugoici przedzialu jest niezb^dne, po* 
nicwai umozliwia ogl^danie wycink6w wykresu funk- 

C|l. 

W programie nie sprawdzane danc wejsciowe 
XMIN, XMAX, YMIN, YMAX (powiriny to bye liczby). 
Bardzo tatwo moina wi^ doprowadzic do wyst^pienia 
bt^du, podaj^G — omytkowo lub swiadomie — wiel- 
kosci nie b^ d^ce iiczbami. 

Sprawdzcnie warunku w instrukcji 460 

IF CODE Z$ 84 OR CODE Z$ = 116... 
moina uproscic pisziic: 

IF Z$ = „T» OR Z$ = „t"... 
Ponadto nalezaloby najpicrw sprawdzi£, czy wpro- 
wadzony znak jest jednym ze znakow T, t, N, n. Mil* 
Gzqce zalozenie, ze wszystkie znaki r6zne od T i t ss| 
rownoznaczne z N/n jest bl^ dem, gdyz prawdopodo- 
bienstwo bl^dnego napisania znaku N lub n jest r6wne 
prawdopodobienstwu bt^nego wpisania znaku T 
lub t. 

W programie „Mapa Polski" do wykreslenia kontu- 
row mapy wielokrotnie uzyto instrukcji DRAW z 
trzema parametrami (luki), co znacznie wydtuza czas 
rysowania choc program czyni czytelnym. PoniieJ 
przedstawiam swojsi wersj^ rysowania mapy, kt6ra — 
choc troch^ diuisza ^ jest kilkadziesi^t razy szybsza 
(czas rysowania mniejszy od 0.5 s). 

Ponadto w obydwu programach po zakonczeniu ob- 
liczen nie przywrocono „warunk6w normalnych"} tj. 
BORDER 7 : PAPER 7 : INKO : CLS. Pozostawienie po 
wyjsciu z programjfcjtikich warunk6w powinno bye re* 
gut^, aby nie pAwifflowac cwentualnych zaktoceA w 
pracy programu nast^pnego uzytkownika. 

JanuszMORBITZER 




SOQ0>^L 



r y s 0 'ji a n 1 "5 



5: DR»=^U S 
-4,-2: DR 



,-3:- DRAW 3,3: DRhU 
,-26: DRhW 1.-16: DRhW 
RW -6 . -6: DRHU) S -5 
5020 DRflU -2,-8: DRRU 3,-10: DRR 
U 3,-2: DRRU 0,-2: DRRU 5,-5: DR 
RU -3.-2: DRRU 3.-4: DRhU--1,-S; 
. draw' -6.-1: DRRU -15,-17: DRRU 
2,-10: DRRU 3; -2: DRRU -2,-2 
5030 DRRU -12,4: DRRU -1,2: DRRU 
-12,1: DRRU -3,-3. DRflU -3,2: D 
RRU -5,0:' DRRU -3,-2: DRRU -1,-4 
: DRRU -2,3: DRRU -2,-2: DRRU 0, 
5; DRflU -4,0: DRRU -2,3 
5040 DRRU -3,-2; DRRU -1,-3: DRR 
U -6,0: DRRU -8,11: DRRU -S,4: D 
RRU -4,-2: DRRU -4,5: DRRU 3,2: 
DRRU -1,2: DRRU -S , 1 
5050 DRRU -4,4: DRRU -2,-1: DRRU 
3> -7: DRflU -6.-5: DRRU -6.10: D 
RRU 4,3: DRRU -1,2: DRflU -S,-l: 
DRflU -1,2:- DRRU -3,0; DRRU -2,2; 

DRRU -3,-1: DRflU -1,7 
5060 DRRU -3,0: DRRU -1,-4. DRRU 
-6,1: DRRU 2,3; DRRU 2,11; DRRU 
-5,3: DRRU 1,1: DRRU -3,4; DRRU 
3,4: DRflU 0,6; DRRU -3.1. DRRU 
0,6: DRhU 1.0: DRRU -2,6 
5070 DRRU -7,6: DRRU 5,6: DRRU - 
2.20: DRRU 28,9: DRRU 8,5: DRRU 
6,1: DRRU 6,4: DRRU 16,3: DRRU 3 
. -1 

5080 DRRU 8.-6: DRflU -2,-2: DRRU 
-4,4: DRRU" 1,-6: DRRU 5.-3: DRR 
U 5,1; DRRU 5,3. DRRU 12,-1 - 
5090 RETURN 



Program ^Wykresy'' 
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5 BEEP .2.15: P>^US1 
R 7: P»=lPER 7: INK 0: CL3 
7 POKE £3609,50 
15 CLS : PPINT BRIGHT 1; RT 8,8 
; ••PRuGRRM ""FunKCja : PRINT BR 
IGHT l;RT l3,5;"Rutor: Janusz MO 
RBITZER": PRINT RT 16,11; BRIGHT 
1; "usp-krrkOw" 

20 DIM X (250) : DIM f (250J : DIM 
P 12) 

22 GO SUB 600: CLS : PRINT RT 
8,3;"Program ""FunKcja"" realizu 
Je": PRINT hT 9,6;'"wydruK funKCJ 
i ysfCxr*: PRINT RT 10,3; "w prze 
dziate <a,b>": PRINT RT ll,6;"or 
az obLicza ntaKSimufti ": PRINT RT 
12.8; "i minifitUfir funKC.ji": PRINT 
RT ' lS/8: "ui- tyrrr przedziale": GO S 
UB 550 

25 LET p(l) =1000000: LET p «2) = 
1000000 

27 CLS : PRINT RT 14,3; BRIGHT 
l>"Podaj przepis funKcji:" 

30 INPUT ''fix's - •■; LINE K$: IF 
LEN K*=0 THEN GO TO 3© 

35 LET d LugOSC=5+LEN Kt: LET p 
ozy = (31-d lugosc) /2 

40 CLS : PRINT BRIGHT l;flT 14, 
8; "Podaj przedzia*. : " 

41 INPUT " a="; LINE a*;" 

b=x"; LINE b$: IF LEN a$=0 
OR LEN b$=0 THEN GO TO 41 

43 FOR i=l TO LEN a$: IF at.Cii 
>="0" RND a$ii)<="9" OR a$U)="- 
" OR a$(i3="-" OR at(i>='*4'" OR a 
$(i4=:"PI" OR a$Ci)="*" OR a$Ci) = 
'■/•■ THEN NEXT i : GO TO SO 

44 GO TO 40 

51 FOR i=l TO LEN b*: IF b*U) 
> = **0" RND b$(i)<="9" OR b$(ii=". 
■■ OR b*(i:t="-" OR b$Cii="+" OR b 
$<i)="PI" OR b*Ci)="*" OR bS(i) = 
■V" THEN NEXT i : GO TO 55 

52 GO TO 40 

55 LET a=URL a$: LET b=URL bt 

60 IF a>=b THEN GO TO 40 

61 LET przedzial=0 

62 LET dt=b-a: LET r =3GN Ca*b) 
64 IF r=l RND a>0 THEN LET dt= 

b: GO TO 68 

66 IF r=l RND a<0 THEN LET dt= 
RBS t-a) 

68 IF dtOb-a THEN LET przedZi 
a L=l 

70 LET Z=fiBS Ca) : LET d=dt/250 
: LET d4=4*d 

80 CLS : PRINT BRIGHT 1: RT 14, 
6:"P0daj LiCZb^ punKt6w": PRINT 
fit 16,6; BRIGHT 1 ; "n i e c i 5^gl o^c i 
(0-2) ; 

82 LET W$ = INKEYt: IF UEN U) * <> 1 
THEN GO TO 82 

90 IF W*<*'0*' OR w$>"2" THEN GO 
TO 82 

100 LET W=URL m;$: IF W=0 THEN G 
0 TO 140 
105 FOR i =1 TO W 
110 PRINT RT 21,3;"Podaj " ; i ; " . 
PKI niecickgtolci : " 

115 INPUT LINE C*: IF LEN C*=0 
THEN GO TO 115 

120 FOR nt=l TO LEN C»: IF C$(n*t) 
>="0" RND c*(m)<a"9" OR c$(m)a". 
" OR c$(fin="-" OR c$cm)a"*" OR c 

t(fii)a"+" OR ct(m)="PI" THEN NEXT 
fft: LET p(i)=URL C$: GO TO 13© 
125 GO TO 115 

130 IF NOT (p(i)>=d AND p(i)< = b 
) THEN LET W=W-1 
135 NEXT i 

137 LET pni:sp(l): LET pn2=P (2i 
140 LET n=249: LET 1=0 
145 BORDER O: PAPER 0: INK 7: L 
ET dK=(28-LEN aj|-LEN b41/2: CLS 



: PRINT- AT 4,9; FLASH 1; •'PROSZ^ 
CZEKAC'^ PRINT AT 8,8;"0becnie f 
uriKCja:": PRINT INUERSE 1;AT 10, 
pozy ; "y (X) X$: PRINT AT 12,0;" 
jest tabe Laryzouiana u przedziaie 

": PRINT INVERSE 1;AT 14,dK;"t"; 
a*i",";b*;"3": PRINT RT 16,0;"Kr 
OK tabe laryzac ji dx = ";d 
' 150 FOR .i=l TO h + 1 / 

160 LETXx=a+ (i -fli *d : iF x>bTHE 
'N GO TO 210 / ' . 

170 IF W=0 THEN* GO TO 190 

180 IF ABS (X-pnl) <d4 OR RBS (X 
-pri2) <d4 THEN GO TO 200 

190 LET L=l+1: LET X ( I ) =X ; LET 
f ( L) =URL K$ 

200 NEXT i 

210 LET fmin=f(li: LET fmax»f(l 

) 

220 LET Kl=l: LET K2=l 
230 FOR i =2 TO L 

240 IF C f Ci ) -fmin) >=:0 THEN GO T 
0 260 

250 LET fmin=f(i): LET klai: GO 
TO 230 

260 IF i f Ci i -fmax) <=0 THEN GO T 
0 280 

270 LET ffHax = f(i): LET K2 = i 
280 NEXT i 

290 LET xntin=x (Kl) : LET xmaxsXt 
K2) 

295 LET rii*=STR* frr.ax: IF LEN n t $ 
>9 THEN LET ffi$=m$( TO 9) 

296 LET rit=STR$ fn'tin: IF LEN n$ 
>9 THEN LET n$=ri$( TO 9) 

297 LET X$=5TR$ xn'.in: IF LEN X$ 
>9 THEN LET X$=x$( TO 9) 

■ 29S LET y*=5TR* Xftiax: IF LEN y$ 
>9 THEN LET y$=y$( TO 9) 

300 LET dy = rmax-frniri: BEEP .8,1 
5: BORDER 7: PAPER 7: INK O: CLS 

310 PRINT BRIGHT 1;RT 9,0;'*FMIN 
= •■; ri$; " d la x="; k* 

320 PRINT BRIGHT 1; RT 11,0; "FMR 
A = "*; 61$; " dta x="; y$ 

330 GO SUB 550 

340 CLS : LET S =SGN ( f fri i n * f fitax ) 

350 IF S=l RND fmin>0 THEN LET 
y=5: GO TO 400' 

360 IF s=l RND frtiiri<0 THEN LET 
y=160: GO TO 400 

370 IF S=0 AND frt.ax>0 THEN LET 
y=S: GO TO 400 

380 IF s=0 RND rniaxsO THEN LET 
y=160: GO TO 400 

390 LET y=INT ( (RBS ( ffii i n i /dy ) * 
165): IF y<5 THEN LET y =5 

395 IF y>160 THEN LET y=160 

400 LET t=5GN (a*bii 

410 IF t >=0 RND a>=0 THEN LET x 
=5 : GO TO 440 

420 IF t>=0 RND a<0 THEN LET X= 
249: GO TO 440 

430 LET X=INT C(Z/dt)*255) 

440 IF x<250 THEN PLOT 0,y: DRR 
W 249,0: PLOT 249, y +2: DRRUJ 0,-4 
: DRAW 6,2: \DRRU -6,2: GO TO 460 

450 PLOT 6,^\VDRRU 249,©: PLOT 
e,y+2: DRRU O ) -4 : DRRU -6,2: DRR 
U 6,2 ^ 

460 IF y<160 THEN PLOT X,©: DRR 
U 0US,9<: PLOT X-2,159: DRRU 4,© 

D^RU -^^p;- DRhU -2;^ 76,:. go TO 47 

'"^470 (^fcCm^^5s^^ ORAiJ 0,159: PLOT 
^''^t&:2^^!^^'\^^- " -2,-6: DRR 

u >2T'iC. '^-Y ~' V . 

/ 478 IF .<iv <.->0 tKEN L^T -Z3 = 160/dy 

450 LET pop rx=0 : ^LET poprysO: L 
ETlz 1=250 /d. t : IF. fffiinoO THEN 
T Z4=160/fmin \ 

451 IF x=5 THEN \-ET poprx=5 
432 IF y=5 THEN LET popfy=5 
4S3 IF rntaxs:© THEN GO TO 485 
484 LET z2 = 160/r'rftax. 
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485 IF pr2ed2iaL=l ftND a>0 THEN 
LET 2 50 

487 IF &>se ftND fWiax>0 THEN LET 
f f CiJ *Z2+P0pfu" : GO TO 490 

488 IF S>=0 AND fmir(<0 THEN LET 
f*="16C-fiBS (f(i)*24)": GO TO 4 

489 LET f$a"RBS ( ( f ( i j - f Wi i n ) *Z3 
i +Popry 

490 PRINT Fit 0,5; INVERSE 1; "y c 

495' FOR i=l TO L 

500 LET X= ( (Z+X (i ) ) *zl+poprx) 

510 LET ysVRL 

515 IF RB8 X>a5S OR RB5 y > 175 T 
HEN 50 TO 530 
520 INK 0: PLOT X,y 
5-30 NEXT i 

531 PRINT ttl;flT 0,a; BRIGHT 1; " 
Z^dany wydf uK (t-tak ,ri-nie ) : " : LE 
T W$=INKEY$: IF LEN W*=0 THEN GO 

TO 531 

532 IF w$<>"t" RND wSO'Ti" THEN 
GO TO 531 

533 IF w$ = "t'' THEN COPY : LPRIN 
T : LPRINT "Przedzial: C";a$;"," 
;b$.;'*3": LPRINT "Fm i n = " ; n " d La 

xs";x$: LPRINT "Fmax=" ; dU 
xs", y » 

535 PRINT ttl;RT 0.0; " 

": PRINT U 

l;fiT 0,1; BRIGHT 1; "POda J (0-KOrii 
ec, l-Kontynuac ja) : " 

536 LET t$=lHKEY$: IF LEN tJ-O 
THEN GO TO 536 

538 IF t$<>"0" AND t»<:>"l" THEN 
GO TO 536 

539 IF t$ = "l" THEN GO TO £5 

540 CL5 : PRINT AT 8,10;"****** 
******'•: PRINT RT 9,10;"* 

*": PRINT AT 10,10; KONIEC 
PRINT AT 11,10;"* PROGRRMU 
*": PRINT AT 12,10; "* 
*": PRINT RT 13,10,"************ 
" : G O SUB 600: GO T O 630 

5 45H31ia|3SE]3XElSig 

550 PRINT ttl; BRIGHT 1; FLASH 
l;AT 0,4; "Naci^ni J dowoiny Klawi 



560 PAUSE 0: RETUR N 

610 Lirni = .2ST^EEP t,0: BEEP t 
,2: BEEP t,4.: BEEP t,5: BEEP 1,7 
BEEP t,9-. BEEP 1,11: BEEP t , IS 
PAUSE 10: BEEP t,12: BEEP t,.ll 
BEEP t,9: BEEP t, 7: BEEP t,5: 
BEEP t,4: BEEP t,2: BEEP t,0 

620 RETURN 
.630 PAUSE 0: BORDER 7: PAPER 7: 
INK 0: CL5 : GO TO 15 



PEM Koni 



UWAGA ! 

Hi 

„IKS" w prenumeracie! 
Prenumeratf przy|mujq od- 
dziaty RSW „Prasa-Ksi^2!ka- 
-Ruch", a w mieJscowoS- 
ciach, gdzie ich nie ma 
urz^dy pocztowe i dor^- 
czyciele. 




Przedzia<: ce,6«PI3 

Fm in =-©.217133 dCa X =4.. 5238934 

Fmax=0. 9349090 d La X =0.3015928 



Przedzia*. : C-2*PI,£*PI3 

FttUn = -4.873359 4La X=-0. 201061 
Fwax =3. 8538699 d La X =0.2513274 




V 



Przedziat : C-2,23 

FrHin = .009l57Sl dia x=-2 

Fwax=0.S dLa x=0 
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METODA 



r";:[ 



TRAPEZOW 



Znalezienie warto^ci caiki oznaczo- 
nej zadanej f unkcji w okreslonym prze- 
d^lale na ogot nie jest trudne. Pier- 
wszym, najtrudniejszym krokiem jest 
znalezienie funkcji pierwotnej — czyn- 
no^ci nast^pne sg juz dziataniami 
arytmetycznymi. nie sprawiajg wi^k- 
szych ktopot6w. Prawdziwe zmartwie- 
nie zaczyna si^ wtedy, kiedy funkcja 
podcalkowa nie posiada funkcji pier- 
wotnej, TakI problem mamy z funkcjg 
exp(— ktorej calk§ oznaczong mo- 
zemy obliczyC jedynie melodami nu- 
merycznymi 

Mozemy to zrobic metodg Newtona- 
-Cotesa Simpsona albo metod^ trape- 
zow. Wybierzmy ostatnig. Przedzia* 
calkowania dziellmy na n rownych 
cz^6ci, w konsekwencji otrzymujemy 
w§zty: 

Xo = a < X- < )^ <X3 < ^ < Xn-i < Xf, = b 

Jako przyblizenie caIki w metodzie 



trapezow przyjmuje sif warto^c nastf - 

pujgcego wyrazenia: 

S = /gyo + yi + y? + yn-i + /2Vn) 

gdzie: 

yi = f{xO (i = 0.1.2. ...n) 

f — funkcja podcatkowa 

h — wysokosd elementarnego tra- 
pezu (jednakowa dia wszystkich trape- 
zow. CO wynika z podziatu przedziatu 
catkowania na n rownych cz^ sci). 
Metoda ta nie jest wolna od bl^du, jest 
on okreslony wzorem: 



-(b a)h2 y" t 
12 



dia t e < a. b > 



Przyst^puj^c do obliczania catki me- 
todg trapez6w nie wiemy na ile czgsci 
podzielid calkowania < a. b >. tak. aby 
wynik miescit si^ w zadanej doktad- 
nosci eps. Musimy to uwzgl^dnid w 
realizowanym algorytmie. 
Krok pierwszy. Jako pierwsze przybli- 



zenie (poczgtkowe) catki przyjmujemy 
warlo6c caJki obliczong dIa n = 1 . Jest 
ono rowne polu trapezu o bokach f(a), 
f(b) i wysokoSci h = b — a. 
Krok drugi. Nast^pne przyblizenie 
otrzymujemy przez podwojenie liczby 
podziatow przedziatu < a. b > z po- 
przedniego przyblizenia. Przedziaf cat- 
kowania dzielimy oczywi^cie na r6wne 
cz^sci. Liczba podziatow jest podwaja- 
na. a wysoko^c h zmniejsza si^ o po- 
tow^. 

Krok trzeci. Z otrzymanych podziat6w 
obliczamy kolejne przyblizenie calki. 
Sprawdzamy. czy modut r6znicy po- 
mi^dzy tym i poprzednim przyblizeniem 
jest mniejszy od zadanej wielkosci eps. 
Jezeli nie. to cofamy si? do kroku dru- 
giego. jezeli tak. to w tym miejscu na- 
st^puje koniec obliczen i wydruk wyni- 

k6w. i . 1 i 
\ 1 1 



commetit Obliczanie catki metodQ tra- 

pez6w 

befiln 

real h. a. b, eps. x; xO. x1 . y. s: 
integer i, n. 

lined); 

print {'WARTOSC CALKI W 

PRZEDZIALE < a. b >'); 
line(1): ' j 

P: read (a. b, eps); 
h = b — a; n = 1 ; 
s = (exp(— at2) + exp(— bt2))/2: 
xO = s * h; 
y=^10t2: 

for n = 2 * n while y > eps do 
begin 

h = h/2; x1 = s; 
X = a: 

for i ~ 1 step t until n — 1 do 
begin 

X = X 4- h: 

X.1 = x1 -f exp(~xt2) 
end i; 

x1 = x1 • h; I" 
y " abs(xl — xO); 

xO = x1 i 
end n; 

formate —12.346 '); line (2); 
print (' a = \ a. ' b = b, * eps = 

eps. ' warto^d calki = '. x1 ); 
wait (' nowe dane '); 
goto P , 
ehd programu ^ ~ ' , , 



- ft 
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Algorytm zakodowany zoslat w 
dwoch j^zykach: Algolu i w dobrze nam 
znanym Basicu. Latwo wyrdznid w nicti 
sekwencje wykonujgce te same obli- 
czenia. Algol jest j^zykiem, w ktorym 
zapis programu pozostaje w duzej 
zgodnosci z „ksztaltem" algorytmu — 
bardzo cz^sto zamiast rysowad; sctie- 
mat dziatania rozwigzanie problemu 
zapisuje si^ wprost w Algolu. 

Roznfce? Program w tym j^zyku 
wymaga wczesniejszych deklaracji 
zmiennych i statych. Real to liczby rze- 
czywiste integer — catkowite. Komen- 
da line (1 ) powoduie wysuni^cie papie- 
ru drukarki o jeden wiersz. Inne 
oczywiscie komendy i formaly instruk- 
cji we/wy. 

Wtasciwosci Algolu pozwolity na wa- 
runkowe zorganizowanie p^tli: 

(or n = 2 * n while y > eps do 
instrukcje z jej wn^trza wykonywane sq 
w przypadku gdy y > eps. Aby zapew- 
nic sobie przynajmniej jednokrctne 
\ch wykonanie przed p^tlq dokonano 
podstawienia y = 1 00 — eps z pew- 
noscig jest mniejsze. 

W Basicu natomiast warunek ten 
sprawdzany jest w wierszu — 200 — w 
ten spos6b. bez uprzednich podsla- 
wien, obliczenia pierwszego przyblize- 
nia wartosci catki b^d^ zawsze wyko- 
nane. 



10 REM Obliczanie catki melodg 
trapezow 

15 PRINT ..WARTOSC CALKI W 
PRZEDZIALE < a. b >" 

20 INPUT ,.podaj doln^ granicg 
catkowania"; a 

30 INPUT ..podaj gorng granic^ 
catkowania"; b 

35 INPUT ..podaj doktadno^d": eps 
40 LET h = b - a 
50 LET n = 1 

60 LET s = (EXP(~at2) + EXP(— bt2))/3 

70 LET xO =^ s ► h 

90LETn = 2-*n 
100 LETh = h/2 .- 
110 LETxl =s ' 
120 LETx = a 

125 REM Poczgtek p^tli warunkowej 

130 FOR i= 1 TO n - 1 

140 LETx = x + h ' 

150 LET x1 = x1 4- EXP(-xT2) 

160 NEXT 1 

170 LET = xl =x1 *h 

180 LETy = ABS{x1 ~ xO) 

190 LETxO = x1 ' 

200 IF y > = eps THEN GOTO 90 ' 

210 PRINT "a= "; a. "b = "; b. 

"eps = "; eps. "wartoSc catki = ": x1 

220 LET b$ = "TAK- 

230 INPUT "czy nowe dane TAK/ 

/NIE"; a$ ^ 

240 IF b$ = a$ THEN GOTO 20 
250 STOP 



Jedno z komputerowych pism angielskich nie bez 
ztosiiwosci stwierdza, ze trudno jest podziwiac f rancu- 
ski mikrokomputer bez swiadomosci, ze wytwarzane 
we Francji produkty niepowtarzalne: sery, wina, 
samochody i... komputery. 



Tyiko Francuzi mogli stworzy<5 wehi- 
kui (CITROEN 2CV) o uroku. kl6ry nie- 
sie sobQ brak elegancji. TyIko oni mogli 
rozwingtS mikro lypu GOUPIL 64. G4 
pracuje pod systemem MS DOS i prak- 
tycznie jest kompatybilny z IBM. Oce- 
niajgc ten mikro. nalezy rr\\e6 pewien 
poglgd o genealogii maszyny i firmie, 
kt6ra ten komputerzbudowata. SOGIE- 
TE DE MICRO - INFORMATiQUE lub 
pro^ciej SMT International. Firma ta ma 
zaiedwie pi^6 lal, ale juz od ponad 
dwoch lat stara sif zdoby(S rynek an- 
gielski. Oczywi^cie. towarem jest mikro 
typu GOUPIL Stowo to wedlug sred- 
niowiecznej francuskiej legendy ozna- 
cza sympatycznego drapieznika — 
LISA. 

Do konca 1 963 roku SMT sprzedat 
nieco ponizej 10 000 tych maszyn. Po- 
tern firma zdecydowala si§ na wspom- 
niang pr6b§ zdobycia rynku angle!* 
skiego. Proponowano tarn komputery 
w trzech wersjach r6zniQcych si^ pro- 
cesorami: 6609. Z-60, 6068. Oferowa- 
ne maszyny umozliwiaty mi^dzy innymi 
wieloprogramowo6d 

Niestety. wynik byt mizerny. Starano 
si§ wi^c wykorzystad bardziej konwen- 
cjonalny komputer G4. Wykorzystuje 
on standardowg (nieco zmodytikowa- 
nq) klawiatur^ IBM. Klawisze funkcyjne 
zostaty przesuni^te z lewej strony nad 
klawisze alfanumeryczne. 

Warto w tym miejscu podkre^liei ol- 
brzymie znaczente wsytuowania klawi- 
szy. szczeg6lnie funkcyjnych. Nawet 
pozornie drobne zmiany przyjgtych 
standardbw (praktycznie narzuca je 
IBM) mogg znacznie utrudnid wykorzy- 
stanie komputera. Tak jest w wypadku 
G4. bowiem cz^^6 klawiszy jesi zle 
usytuowana; trudno na przykiad zna- 
\et6 klawisz BREAK. 

W mikro G4 zainstalowano dyski typu 
IBM. a w sMad jego wyposazenia wchodzi 
„myszka" i d^ugo oczekiwany system Micro- 
softa OKNA (WINDOWS). Serce G4 to 16- 
-bitowy mikroprocesor 80186. 

80166 jest zastanawiajqcym wyborem, 
jest r6zny bowiem od 8088 wykorzysta- 
nym w IBM PC. a jednocze6nie ma liczne 
braki wobec 60266. wykorzystanego w 
IBM PC AT. 

G4 realizuje oprogramowanie IBMa, Elec- 
tric Disck, Chit-Chat i Framework w wi^k- 
szo^i wypadkdw robi to szybciej niz kon- 
wencjonalne maszyny IBM. 
. Oceniany model ma pami^6 256 
KB RAM, twardy dysk 1 0 MB i kompatybilne 
do IBM floppy. Typowe uzupeinienie to mo- 
nitor oraz klawiatura. Jednak o atrakcyjno^- 
ci 04 decyduj^ OKNA Microsofta i doskona- 
le oprogramowana „myszka". 



Daje si^ odczu6. ze lakosd konstrukcji 
komputera. /ego oprogramowanie wi^ze sip 
2 odpowiednim przygotow/aniem rynku. za- 
spokojeniem najbardziej wyszukanych po- 
tfzeb potencjalnych klient6w. tgcznie z po- 
radnictwem np. w zakresie instalacji kompu- 
tera w wybranej firmte 

SMT zdaje sobie sprawp. ze nie zdob$- 
dzie rynku jedynie niskimi cenami. Jest tu 
zbyt wfelka konkurencja w postaci lakich 
firm jak TANDY. COMMODORE. Goupll ofe- 
ruje trochp wipkszg S2ybko56. meco lepszy 
styl oraz oczekiwane. bardzo praktyczne 
OKNA. 

OKNA realizacjq i jednoczesnie zwia- 
stunem nowej. niewatpliwie trwafej tenden- 
cji rozwoju i doskonalenia Jnterfeisu utyt- 
kownika". Tych moiiiwoSci komputera. kt6- 
re decydujg o wzroicie Jycztiwosci 
komputera", prostszym i bardziej natural- 
nym sposobie komunikowania si? z kompu- 
terem. 

Komputer G4 jest przyjemny w eksploa- 
tacji I nie zaskakuje doSwiadczonych uzyt- 
kownik6w PC. aczkolwiek podczas pracy 
zestawu pojawia si^ czasem Wgd parzy- 
stosci. 

Jedynie monocnrotnatyczny ekran nieco 
zaskakuje zbyt malq rozdzielczoicig. jakiej 
nalezataby oczekiwa6 w maszynie. ktdra ma 
Sip sta6 popularna wiaSnie dzipki grafice 
ui^kowej. 

Interfejsowe mozliwoSci G4 wydajg sip 
standardowe. Oba szeregowe i r6wnologte 
porty wbudowane w tylnej czpSci. Pracu- 
je poprawnie i modemami i r6wnoleg*q dru- 
karkq. System iwardego dysku jest cichy i 
szybki — sprawia wrazenie. ze to dodatko- 
wa pamipc RAM. 



Pamipd 640 KB powinna by6 wystarcza- 
jgca dia wipkszoSci zastosowar^. Nalezy 
jednak sprawdzi^. ile OKNA zostawiajg pa- 
mipci dia program<5w uiytkowych. przed ok- 
resleniem ostatecznej konfiguracji G4 (cena 
1395 funtdw 128 KB lub 4420 funt6w 512 
KB). 

Cz§6c przedstawionych powyzej 
uwag na temat jednego z ostatnich 
francuskich komputer6w tyIko pozornie 
jest nieco r6zna od informatycznych 
zainteresowart czytelnik6w JKS-a". Ju- 
tro bowiem istotng kwestig stanie sip 
wyb6r komputera dia naszego zakladu 
pracy. wyroinienie jego podstawowych 
cech. kt6re decydujg o jakosci i kom- 
forcie pracy maszyny. Wydaje sip. ze 
zasadniczym wnioskiem jest uznanie 
kompatybilnosci z IBM jako podstawo- 
wej cechy protesjonalnego mikrokom- 
putera Kolejng cechQ, ktorg wyroznio- 
no jest „tycz\\vJos6 komputera" (friend- 
liness). Mie^ci sip w tym zarowno 
mechaniczna konstrukcja. jak i opro- 
gramowanie maszyny. 

Na przyktadzie G4. „zyczliwos<5" swg 
mikro uzyskuje dzif ki bardzo komuni- 
kalywnemu sysiemowi OKNA. Uzupet- 
nieniem tej wtasnoSci miata byd nie- 
udana pr6ba poprawienia konstrukcji 
klawiatury (rozmieszczenia klawiszy). 

Wymowne jest to. ze profesjonalne 
pismo komputerowe bardziej eksponu- 
je skfadowe ..zyczliwosci komputera". 
na przyklad kiepsk^ jako^d monitora. 
niz szybko^d G4. kt6ra przekracza moz- 
liwo6ci IBM. 

Mozna sgdzid. ze wkraczamy w no- 
wy etap rozwoju mikrokomputer6w. 
etap dgzeh ku poprawie jakosci 
wspofpracy z komputerami w pracy i w 
domu. 

W.Q. 




CiMa na Cnybowskiej,,. wnesieA'86 



Fofo: Jan Zalmm 
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lak to zrobic 



Zapewne wszystkich fascynuje barwny, ruszajqcy 
sif 6wiat gier. Dociekliwi, zanim wykonajq pierwszy 
ruch Joysticklem, zastanawlajq sif , JAK TO moina 
ZROBIC. Artykut ten wyjainia podstawy najprostsze) 
techniki animacji na ATARI 800, Jakq dostarcza grafika 
PLAYER-MISSILE, odpowiadajQca SPRITom na In- 
nych komputerach. 



W zwigzku z tym. ze w dalszej cz^^ci 
uzywane b^dg operacje POKE i PEEK, 
a nie chc§ osobom rozpoczynajQcym 
swojQ przygod^ z komputerem odbie- 
rac szansy zrozumienia, rozpoczQc 
musz^ od kilku uwag z nimi zwigza- 
r nych. 

PEEK jest funkcjg, ktora odczytuje 
warto6<5 bajtu sped wskazanego adre- 
su. Na przyktad instrukcje 
A = PEEK (704) 
B = PEEK (53248) 
przypisujq zmiennym A i B wartosci 
zapami^tane odpowiednio w kom6r- 
kach o adresach 704 i 53248. 

Odwrotne role odgrywa procedura 
POKE. Pod adresem wyst^pujgcym w 
roli jednego z jej parametr6w umie- 
szcza ona dowolriQ wartosci z przedzia- 
tu 0—255. podana jako drugi parametr. 
Na przyktad 

POKE 704.160 
- POKE 53248.100 

Przechodzgc juz do wta^ciwego te- 
matu, nalezy odpowiedzieci na pytanie, 
czym jest player? 

Wyobraimy sobie pionowy pasek na 
ekranie. Podobnie jak wszyslko, cojest 
wy6wietlane. pasek nasz jest obrazem 
pewnego kawatka pamigci komputera. 
Jezeli teraz (... na razie) uwierzymy,- ze 
moze s\§ on przesuwac wzdtuz ekranu, 
zmieniad swojg szeroko6d i barw^, to 
b^dziemy znali najprostszQ odpowied:^ 
na to pytanie. 

Nalezy doda<5, ze dysponufemy czte- 
rema plsyerami i czterema misselstmi, 
z ktorych kazdy jest takze ..paskiem", 
ale 0 szeroko6ci 1 /4 rozmiaru playera. 

Wielu zapalonych amatorow pro- 
gramowania juz wyobraza sobie baje- 
czne obrazy wtasnego autorstwa, prze- 
suwajqce sif po ekranie. My jednak 
post^powa(S powinni^my systematy- 
cznie. a w fazie poznawania mozliwosci 
playerow powoli, ale doktadnie anali- 
zowa6 kazdy krok. 

Rozszyfrowywanie tajemnic grafiki 
PLAYER-MISSILE rozpoczniemy od 
nast^pujQcego stwierdzenia: 

player jest obrazem ci^glego obsza- 
ru pamigci. 
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Fakt ten ma ogromne znaczenie przy 
definiowaniu ksztattu playera, co zoba- 
czymy dalej. Rola. jakQ on odgrywa. i 
cata ..filozofia" playerow szczeg6lnie 
widoczna jest w momencie analizy 
sposobu. w jaki komputer wy^wietla 
zadane informacje na ekranie. 

Wiemy, ze obraz widoczny na moni- 
torze jest odwzorowaniem pewnej 
cz^sci pami^ci. W zaieznosci od wy- 
branej grafiki, rozne Jej komorki mog^ 
by<5 wyswietlane w roznych miejscach 
ekranu (zaiezy to od liczby bajt6w two- 
rzQcych lini§ dia danej grafiki). Rozny 
jest takze spos6b liczenia adresow baj- 
t6w wy6wiellanych bezposrednio wyzej 
i nizej wybranej pozycji ekranu. DIa gra- 
fiki „0" adresy pami§ci. tworzgcej obraz 
ekranu, przedstawi^ mozna nast^pujQ- 
co: 



Realia te powodujg, ze stworzenie 
pionowego obrazu, ktory mogtby sl§ 
porusza6, jest, moze nietrudne, ale 
66^6 skomplikowane i pracochtonne. 
Ponadto zauwaimy. ze kazdorazowa 
ch§(S zmiany grafiki niesie.ze sobq nle- 
bezpieczer^stwo zniszczenia rysunku. 

RozwiQzanie tego problemu dostar- 
cza grafika playerow. Ci^gto^d obszaru 
pamigci przeznaczonej dIa ich repre- 
zentacji i jego niezalezno^d od pamif Ci 
ekranu zapewniaj^: 

tetwo66 dost^pu do kolejnych baj- 
tow, odpowiadajgcych nastfpujg- 



cym po sobie liniom obrazu, 
— uniezaleznienie playera od trybu 
graficznego tta. 

Ponadto komputer dostarcza nam 
mozliwosd wyboru jednego z dwoch 
sposobow odwzorowania pamifci 
playera na ekran rozni^cych si^ rezo- 
lucjg, tj. liczbg linii opisanych jednym 
bajtem. Mozemy zazgdad. by kaidy 
bajt przeniesiony zostat na dwie linie 
ekranu — rezolucja podw6jna, ale wy- 
razniejszy rysunek uzyskujemy przy re- 
zolucji pojedynczej — kazdy bajt two- 
rzy jedng |jnl§ obrazu. 

Do wskazania wybranej rezolucjl 
stuzy czwarty bit komorki o adresie 
559. Brzmi to przerazajgco, diatego na- 
lezy natychmiast zapomnied to zdanie, 
a zapamif ta(i dwie liczby 62 i 46. kt6re 
wpisane instrukcjg 

POKE 559.... 
zapewniajq 

62 — rezolucja pojedyncza, 

46 — rezolucja podw6jna. 

Z rezolucja playerow sci^le zwiQza- 
na jest wielko6c pamifci, potrzebna do 
ich reprezentacji, dIa pojedynczej wy- 
nosi az 256 bajtow. dIa podwojnej tyiko 
potow^, czyli 1 28 bajtow. DIa popraw- 
nej obslugi playerow adres lego pola 
znajdowacS si? musi w kom6rce o adre- 
sie 54279. Moze to byd oczywi6cie 
liczba nie przekraczajgca 255 (dlacze- 
go?), diatego wlasciwy adres wyraza 
ona w postaci blok6w po 256 bajtdw 
kazdy. 

Ponizszy rysunek prezentuje sche- 
ma! omawianej pami§ci. 



I I I 



Po tych niezb^dnych wyja6nleniach 
przystqpid moiiemy do nadania p/aye- 
rowi ksztattu. Metoda jest powszechnie 
znana — rysujemy planowany obraz na 
siatce o szerokoSci o6miu pol. w kt6rej 
kolumny, poczqwszy od prawej strony, 
ponumerowane kolejnymi potf gami 
dwdjki 1.2.4.... Nast§pnie pola, przez 
kt6re przechodzq linie rysunku, zamie- 
niamy na 1 . pozostale na 0. DIa kaide) 
linii rysunku obliczamy warto6d bf d^CQ 
sumQ iloczyn6w warto6ci pola (1 lub 0) 
przez warXotd koiumny, w kt6rej si^ 
znajduje (1,2.4,...). 

Zasad§ ilustruje ponizszy przyktad: 



SzczegoInQ ostrozno^d nalezy za- 
chowad przy tworzeniu rysunkow mis- 
se//, bowiem jeden bajt pamif ci zawie- 
ra informacj^ o postaci pojedynczej li- 
nii kazdego z nich. I tak na powyzszym 
rysunku kolumny (bity) z numerami 

1 .2 — zawierajq informacje dotyczq- 
ce missela 0, 

4,8 — dotyczg misselst 1 . 

1 6.32 — missela 2, za6 

64 i1 28 — missela 3. 

Nie zmienia si^ sposob liczenia od- 
powiednich wartosci. 

Liczby, ktore w opisany sposob utwo- 
rzyli^my, musimy teraz umie6cid we 
wtasciwych miejscach pami^cL Przyj- 
rzyjmy sig nast^pujQcemu programowi. 
umieszczaj^cemu pokazany wyzej 
prostokQt w playerze 0, 

10 REM DEFINIOWANIE RYSUNKU 
PLAYERA - PROSTOKAT 

11 REM MAMY NADZIEJE. ZE 
PAMieC PLAYERA JEST 

CZYSTA" 

12 REM W PRZECIWNYM 
PRZYPADKU NALE2y UMIESCIC 
W NIEJ STOSOWN/^ 

13 REMLICZBEZER 

20 AD = PEEK{106)-16 
30 POKE 106. AD-16:REM 

REZERWUJEMY PAMIfC DLA 

playerOw 

40 poke 54279. ad:rem 
informujemy system GDZIE 
znajduj/^ sie 

opisy player6w 

41 REM 

50 POKE 53277.3:REM ..WMCZAMY" 

GRAFIKE P-M 
60 POKE 559.62: REM WYBIERAMY 

REZOLUCJE OBRAZU 
70 START = AD 256 + 1024 + 100 
80 FOR I = START TD START + 5: 

REM PETLA WPISUJACA DANE 
90 READ B 
100 POKE I.B 
110 NEXT I 

120 DATA 255.129.129.129.129.255 
Wyja6nienia wymagajQ instrukcje w 

nast^puiQcych liniach: 

50 — ..wtQCzenie" polega na wskaza- 
niu systemowi. jakie elementy 
^ majQ byd uwidocznione na ekra- 



nie; wstawiajqc do komorki 
53277 warto66 1 , pozwalamy na 
przeniesienie na ekran obrazu 
misseli, — warto^d 2 — obrazu 
piayerow; w celu wykorzystania 
wszystkich mozliwo^ci. nalezy 
posluzyc si? sumQ tych wartosci 
— stgd liczba 3. 
70 — obliczanie adresu pierwszego 
bajtu. od ktorego nalezy rozpo- 
czgd wpisywanie definicji linii 
playera. Liczba 100 okre^la na 
ekranie lini?. od kt6rej pokaze 
sif nasz prostokQt. Ponizej 
przedstawione zoslaty numery linii 
zapewniajgce widzialno^d obraz- 
ka na monitorze. Podane liczby 
dotyczQ rezolucji pojedynczej. w 
nawiasach. znalazty si§ ich od- 
powiedniki dia rezolucji podwoj- 
nej. 



r '. — ^ 



Z powyzszego rysunku wiemy, jakimi 
warto^ciami mozemy opisywad pozio- 
me ustawienie playera. Zobaczymy te- 
raz. jak to zrobid. DIa utatwienia zapo- 
znajmy si@ od razu z nast^pujgcymi 
komdrkami pamigcl, ktore b?dg nam 
jeszcze potrzebne. DIa potrzeb nasze- 
go programu sq to adresy dotycz^ce 
playera 0. 

53248 — przechowuje warto^c okre^- 
lajqcq poziome pozycje 
playera, 

704 — definiuje jego kolor. jest to 
liczba postaci 16 (kod kolo- 
ru) + (jasnosd) 
53256 — opisuje jego szeroko6d. w 
sposob nast^pujQCy: 
0.2 — normalna, to znaczy |ed- 
nemu bitowi z kazdego bajtu 
playera odpowlada jeden punkt 
w linii ekranu, ma on szeroko66 8 
punktdw (uff. to byto trudne wy- 
ja6nienie), 

1 — podwdjna, rozumied nalezy 
w sposob oczywisty. 
3 — poczworna. 

Natychmiast wykorzystajmy nowo 
zdobytQ wiedz? do rozszerzenia pro- 
gramu 0 nastf pne instrukcje: 

130 POKE 53248.1 00:REM 

USTAWIENIE POZYCJI 

POZIOMEJ 
140 POKE 704.64:REM NIECH 

BgDZIE CZERWONY 



150 POKE 53256.0:REM 

SZEROKOSC NORMALNA 
Dalej wzbogacid go mozemy ins- 
trukcjami powodujgcymi poziomy 
przesuw, zgodny z ruchami joysticka. 
Oto one 

160 HPOZ = 100:REM USTALENIE 
POZYCJI POCZATKOWEJ 

170 IFSTICK(0) = 11 THEN 
HP0Z = HP0Z-1:REMW 
LEWO 

180 IF STICK(O) = 7 THEN 

HPOZ = HPOZ + 1:REMW ■ 
PRAWO 

190 POKE 53248,HPOZ 

200 GOTO 170 



Kryjg one jednak powazny bigd (op- 
rocz tego. ze tworzg nieskor^czong pf t- 
I?). Proszf sprobowad przesun^d pro- 
stokQt poza ekran (np. w prawo), zaob- 
serwowad efekt i wyttumaczyd go. Po- ■ 
winienem przy tym wyttumaczyd si§. ze 
nie zapomniatem o misselach, ani.o 
pozostalych playerach. Po prostu up- 
ro^citem sobie problem, wiedzqc. ze 
operacje dotyczQce wszystkich ele- • 
mentow grafiki P— M jednakowe i 
przedstawitem je na przyktadzie playe- 
ra 0. Jest to jednak moim obowiQZkiem 
podad adresy wszystkich komorek. 
ktore mogq mied znaczenie w trakcie 
programowania z wykorzystanlem 
przedstawionej techniki. Oto one: 

704 kolor playera i missela 0. 

705 kolor playera i missela 1 . 

706 kolor playera i missela 2. 

707 kolor playera i missela 3. 

53248 pozioma pozycja playera 0. 

53249 pozioma pozycja playera 1 . 

53250 pozioma pozycja playera 2. 

53251 pozioma pozycja playera 3. 

53252 pozioma pozycja missela 0, 

53253 pozioma pozycja missela 1 . 

53254 pozioma pozycja missela 2. 

53255 pozioma pozycja missela 3, 

53256 rozmiar p/ayera 0. 

53257 rozmiar playera 1 . 

53258 rozmiar p/ayera 2. 

53259 rozmiar playera 3. 

53260 rozmiar wszystkich misseli, jest 
to liczba tworzona jako suma 
wartosci opisujQcych szeroko^d 
kazdego z nich. 



Na tym chciatbym zakor^czyd rozwa- 
zania dotycz^ce playerdw. Zachgcam 
wszystkich do wpisania tych kilku za- 
prezentowanych instrukcji I przepro- 
wadzenia eksperymentow. 2ycz§ przy- 
jemnej zabawy i powodzenia przy two- 
rzeniu swoich wfasnych ruszaj^cych 
s\§ obrazkow. 

GRZES 
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BASIC 

(Podstawy programowania) 



Kontynuujemy wyktad z programowania w jfzyku BASIC na 
mikrokomputer ZX Spectrum. 

W wyktadzie tym podamy podstawowe wladomoici i zasady 
tworzenia cykli obliczeniowych, zwanych takle pftlami. Om6wi- 
my odpowiednle Instrukcje BASIC*u, za pomocq kt6rych zapisu- 
Jemy cykie obliczeniowe (pftle). Wiadomoici te b^dq uzupetniane 
w nastfpnych wykladach. 



WyWad czwarty: cykle obliczenowe (p^tle) zapisywanie p^tli 
w programach w BASICu z wykorzystaniem — instrukcji IF 
- instrukcji cyklu FOR I NEXT. 

W poprzednim wyWadzle (wyWad 3) zapoznalismy si^ mi^dzy 
innymt z instrukcji IF. Stosowallsmy jg np. w celu sprawdzenia odr 
powiedzi na pytanie: „czy wprowadzamy cfa/e/?". Jezeli odpowie- 
dzieliSmy Jak'\ to wykonujqc instrukcji skoku bezwarunkowego 
(GO TO n) powracalismy do wykonania instrukcji o numerze n 
i powtarzaliSmy cyki obliczeh zapisany kilkoma instrukcjami. I tak 
np. w programie z przyWadu 3.5 instrukcje o numerach 30—80 sq 
wykonywane tyle razy, ite razy napisaliSmy Jak". 

Om6wimy teraz zapisywanie za pomocq instrukcji IF cykli obli- 
czeniowych zwanych takze p^tlami. Jak zwykle zaczynamy od 
przyWadu. 



Przyktad 4.1 



Napisa6 program na obliczenie sumy 5 liczb (dowolnych) wczy- 
tywanych w trakcie realizacji programu. Napisany program ma 
postal: 

" 10 REM PrzyK Lad 4.1 
15 REM s-suwia 5 Liczb 

x-Ko Le jna czgtana Li czba 
20 LET ss© 

as INPUT •*)<='•; X; PRINT X 
30 LET s=£+X _ 
3S INPUT "Xa";x: PRINT X 
4.0 LET S=S+X 

45 INPUT "X=";X: PRINT X 
. 50 LET £=:S+X 

SS INPUT "X=6";X: PRINT X 
60 LET SaS+X 

65 INPUT -'xs'^X: PRINT X 
70 LET £.=S+X ^ . ^ 
75 PRINT "suma S LiCZb a 



■ Napisanie takiego programu. gdy chcemy zsumowai wi^cej. 
np. 100 liczb, bytoby bezsensowne. Sumowanie dowolnej ilo§ci 
liczb mozna przeprowadzi6 za pomocg proflramu, w kt6rym wy- 
st^pu]^ Instrukcje wielokrotnie wykonuj^ce te same obliczenia dia 
r6znych warto^ci danych. 

Przyklad 4.2 

Napisad; program obliczajqcy sum^ n liczb (dowolnych) wczy- 
tywanych w trakcie realizacji programu. W programie nalezy sko- 
rzystai z instrukcji IF. 
a) schemat blokowy: 




b) program 



3-8 BEM Pr?uKLad 4.2^ 
IS REM n-xLosc wczyXywanych 
Liczb 

X'-KoLejna czutana Liczba 
i -Li czni k ,£."Surfta n LiCZb 

20 INPUT "ns ";n 

25 PRINT "ObLiczanift suffty ";n; 

Liczb" 

30 PRINT "'wczytane Liczby 
35 LET s=s0 
40 LET i=l 

45 IF i >n THEN GO TO 80 
50 INPUT X 

55 PRINT x; ' 
60 LET s*£+X 
65 LET i=i+l 
70 GO TO 45 

80 PRINT — suffta '^n;'' Liczb = 
s 

c) wyniki dIa przykladowych danyc^" 

ObLiczanie sumy 5 Liczb 
Muzytane Liczby : 

2 3 5 6 8 
sufifia 5 Liczb a 24 

Zauwazmy. ze jezeli rozwiqzywanie problemu zawiera pewien 
proces powtarzalny. to w schemacie blokowym pojawia si^ p^lta 
(cykle obliczeniowe). P^tla musi zawiera6 okreslenie sposobu jej 
zakortczenia. Czynno^i polegajqca na wykonaniu kazdej operacji 
w jednym przebiegu pf tli nazywa si^ cyklem p^tli. 

Zajmiemy si^ teraz analizQ schemata blokowego z przyWadu 
4.2. CzynnoscI opisane blokami: czytanie x i sumowanie 
(S = s + xj majq si? wykonae n-razy dIa r62nych wartoSci x (w 
tym mtejscu warto66 n jest juz znana). Wykonanie tych czynnosci 
dIa jednej wartosci x to cykI p^tli. 
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Zapis w tym bloku odczytujemy w nast^pujqcy spos6b: jezeli wa- 
runek / > n jest spetniony, to prze)dz do wypisania wartoSci sumy 
n-liczb; jezeli jest nie spelniony. to powt6rz obliczenia tzn.: 

— czytajx 

— dodaj X do sumy (s = s + x) 

— dodaj do / liczb^ 1; obliczonq warios6 podsiaw pod 
zmiennq / (/ = /+ 1) 

— powr66 do pytania / > n 

W tym przyWadzie zmienna / s*uzy do zllczania \\oic\ liczb. a za- 
razem zlicza liczb^ wykonanych cykli w petli. mozna takze powie- 
dzie6. ze zmienna / odgrywa n5wnie2 rol^ licznika ,.obrot6w" p^tli; 
jej wartoSd; zmienia si^ o statq liczb^ r6wnq 1 . Po zakortczeniu ob- 
liczert, tzn. w razie spe*nienia nier6wno6ci /" > n, wartosi zmiennej 
i wynosi n + 1 . 

zapiszemy teraz program z przyktadu 4.2 w postaci: 



10 REM PfzyKlad 4.2:. 1 
IS REM n-ilosc wczy tywanych 
Li czb 

x-ko Lfi jna czy land Li czba 

s-£urfta n Li czb 
£0 INPUT "ns ";n 
£5 PRINT "ObLiczanift iurny '^in; 
Li czb" 

30 PRINT '"wczytane Liczby 

35 LET S=0 

40 FOR i=l TO n STEP 1 

45 REM i-znuenna st&rujaca 

50 INPUT X 

55 PRINT x; " 

60 LET &3SS.+X 

70 NEXT i , . ^\,u 

S0 PRINT '-•'suffta '^n;" Liczb ^ 

Wprowadzmy i wykonajmy ten program dia tych samych liczb 
CO program z przyWadu 4.2. Otrzymane wyniki s^ takie same jak 
poprzednio. 

Do zapisu pf tli w BASICu przeznaczone s^ dwie specjalne ins- 
trukcje zwane instrukcjami cyklu (lub instrukcjami powtorzert), sq 
to instrukcje czynne FOR i NEXT. one zawsze uzywane razem 
i majQ dwie postacie ogOlne: 

n, FOR Zp = Wi TO W2 STEP Wg 

nz NEXT Zp 
lub 

n, FOR Zp = Wi TO W2 

nz NEXT Zp 
gdzie: rii, Pa — numery wierszy 
Zp — zmienna sterujqca (lub zmienna kontrolowana. lub wska- 
irt\k p^tli) jest zmiennq prostq numerycznq. nazwa 
zmiennej sterujqcej musi by6 jednolilerowa. 
w, — wyrazenie arytmetyczne okreslajqce wartosci poczqtko- 
zmiennej sterujqcej. 
— wyrazenie arytmetyczne okreslajqce warto66 kortcowq 
zmiennej sterujqcej, 
W3 — wyrazenie arytmetyczne okreslajqce warto§6 kroku 

■■ zmiany zmiennej sterujQcej. \ 
Wi, Wg, W3 — nazywane sq parametrami cyklu. 
Jezeli krok zmiany zmiennej sterujqcej ma wartosi 1 (W3 = 1 ) to 
fragment STEP W3 moze by<i pominifty. Instrukcja FOR przyjmuje 
wtedy postal drugQ. 
Przyktady instrukcji FOR: 
a) 100 FOR / = 1 TOn 



140 NEXT/ 

b) 60 FOR = t+ /c TO 5 * I + 2 * k + 1 STEP 2 

160 NEXTk 

c) 70 FOR j =—25 TO 20 

170 NEXTy 

d) 50 FOR X = x7 TO x2 STEP x3 

100 NEXTx 

e) 100 FOR / = 7 TO n STEP k 

150 NEXT/ 

W przyWadach b. d. e, przed wejsciem do p^tli muszq byi znane 
warto6ci /; x7. x2, x3. oraz /, n, k. 

Instrukcje cyklu umozliwiajq proste zaplsanie w programie tej 
cz^sci schematu blokowego. kt6rq opisywaliSmy za pomocq ins- 



■ < 



trukcji warunkowej IF. W naszym przyWadzie zamiast instrukcji: 
40 LET i = 1 

45 IF i > n THEN GO TO 80 
oraz ' - : 

65 LET / = / + 7 

70 GO TO 45 
napisaliimy instrukcje: 

40 FOR i = 1 TOW STEP 1 
oraz , : • 

70 NEXT/ ' ■ 

Przy tworzenlu p^tli mozna wyr6zni6 pi^d; grup czynnosci, z ktd- 
rych kazda zostata optsana w postaci odpowiedniego bloku na 
powyzszym schemacie. 

Wyjasniert dodatkowych wymaga blok 1 . » 

Parametry cyklu w,, W2, W3 sq wyrazeniami arytmetycznymi. a 
wi^c mogq by6 to state numeryczne nazwy zmiennych numery- 
cznych lub wyrazenia arytmetyczne. Przed wejsciem do p^tli mu- 
szq by6 nadane wartosci zmiennym numerycznym wchodzqcym 
w sWad wyrazert arytmetycznych, reprezentujqcych parametry 
cyklu w,. 1V2, W3. 

Zapami^tajmy pewne reguty obowiqzujqce przy pisaniu pro- 
gram6w z instrukcjami FOR i NEXT: 

— instrukcje postaci: 

n FOR Zp = w, TO wg STEP W3 . ] 
piszemy w miejscu. ktOre odpowiada na schemacie blokom 
o numerach 2 i 3 (uprzednio nalezy ustali6 wartosci wyrazert 
Wi. W2. W3. blok numer 1 ). 

— instrukcje postaci: 

n, NEXT Zp 

piszemy w miejscu. kt6re odpowiada na schemacie blokowi 
0 numerze 5. 

— blok o numerze 4, to ciqg instrukcji. kt6re majq by6 wykona- 
ne tyle razy. ile wskazujq parametry cyklu. 

Tak wi^c realizacje podanego schematu mozna w BASICu za- 
pisad ciqgiem instrukcji postaci; 



40 REM instrukcje przed petLa, 
bLOK PI 

50 REM nadanie wartosci sniien- 
n u ni y s t a p u J a c y n i para 
irtetrach cyKLu (jezeLi 
wys tepu ja :» 

60 FOR r=wl TO wS STEP W3 . 

70 REM ciag instruKcji * 

80 REM wnetrze petLi 

90 NEXT Z 

100 REiM instruKcje po pelLi, , 
bLOk P2 ' 

Ten sam cigg inslrukcji zapisany w BAS'Cu za pomocg iostruk- 
c\\ IH wygl^da nast^puj^co: 



40 REM instrukcjs: prztd patLa. 
bLok PI 

60 REM nadanie wartosci zmien- 
nyfft wystepu jacym w P«ra 

rfte tra^j-w cyK Lu ( jeze Li 

wystepuja) 
S5 REM G. H - Zfftienne dos-teppe 

jedynie trans. La to row i 

Jezy Ka &R5IC 
60 LET Z=wl 
eS LET GkwS 
64 LET H=W3 

66 IF SGN (H)*iZ-G)>0 THEN GO 
TO 100 

70 REM ciaa instruKcji - . 
80 REM wnetrze petLi : 
, 90 LET Z=2+H . 
9S GO TO 66 

100 REM instruKcje po petLi, 

bLOK pa 



dokoAczenie na itr. 20 
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dokoi^czenie » itr. 19 

2 podanego ciqgu instrukcji wynlka. ze na wyKonanie instrukcji 
cyklu FOR— NEXT sWadajq si^ nast^pujgce czynno6ci: 
1 . obliczenie wertoSci wyretenia w, i nadanie zmiennej sterujqcej 

z warto6ci poczgtkowej (wiersz 60). 
2 obiiczenie warto6ci wyrazert i W3 (z uwzgl^nieniem nowej 

wanosci zmiennej) oraz zapami^tanie wartoici kortcowej i 

kroku Wx pod zmiennymi G i H niedostgpnymi dla programu 

uzytkownika (wiersz 62 i 64). 

3. sprawdzenie warunku niewykonywania cyklu (wiersz 66). przy 
spetniemu tego warunku nast^puje przejscie do instrukcji wy- 
st^puj^cej bezpo6rednio po instrukcji NEXT.(SGN fx;) jest to 
funkcja standardowa — podaje ona znak zmiennej x. wartoici 
wykonania tej funkcji wynoszq ( — 1 ) jezeli x < 0; 0 jeieli x = 0; 
1 jeieli X > 0). 

4. wykonanie ci^gu instrukcji b§dqcego wngtrzem pf tli. 

5. nadanie nowej wartoSci zmiennej steruj^cei (wiersz 90), 

6. przejscie do wykonywania nastgpnego cyklu (wiersz 92). 

Z podanych czynnoSci wynika nast^puj^ce dziatanie instrukqi 
cyklu: 

— jezeli warto66 kroku jest wi^ksza od zera (W3 > 0). to war- 
toii poczqtkowa Wi musi byd; nie wi^ksza od wartoSci kort- 
cowej (Wi < wj. 

— jezeli wartosd kroku (est mniejsza od zera (W3 < 0) to war- 
to66 pocz^tkowa musi byd; mniejsza od wartoSci kortco- 
wej Wj (w, > wg) 

W przeciwnym przypadku cyki nie jest wykonywany. a zmienna 
sterujQce przyjmuje werto^d poczqtkowg. Po wykonaniu instrukcji 
cyklu warto^d zmiennej steruj^cej jest wi^ksza od o krok W3 Izn. 
z = W2 + W3 (patrz: wydruk do przyktedu 4.3). 

PodaliSmy obszernq porcjf informacji teoretycznych, postara- 
my sip je zapamtptad. wykonuj^c kilka przyktadbw 

FraykM4.3 

Danych jest 15 liczb. Nateiy wczytywaci po jednej Mczbie w cza- 
sie reatizacji programu oraz drukowad t$ liczb^. jej kwadrat I szed- 
- cian. 

Program iost pr^-jsty i pofiJ^jorT^y gn t;r.j sc^'-mgtu blokowego. 

REh PrzuK lad 4.3 
20 REM x-czwl-ana Uczba 
30 PRINT " X " xta 

ie FOR i«l TO 15 STEP 1 

50 INPUT "x» ";x 

60 PRINT " '^x; " " 
; X ♦x ; " " ; " " ; x *x *x ; " 

6S REM liczbu RtOQJi buc dottfoine 
u jftffine > rowne Z4ro lub 
dodatnie^a wiec nis Koze 
my za&toftowac operatora 
pot«oowania i t ) 

70 NEXT i 

©0 PRINT ''ia"; i 

Wprowaazmy 1 v^yKonajmy ten program. Niiej prezentujemy 
otr/ymaio wvr^'t -f^a przykladowych danych: 

-a 1 -1 
. -5 % -9 



-a? 



i «16 



s 

3 
4 
S 
6 

/ 

8 
9 
6 
5 
4. 



0 

9 

16 

S5 

36 

49 

64 

81 

36 

SS 

16 



0 

8 

27 
64 
1S5 
S16 
343 

5ia 

729 
216 

ise 

64 



Patrzqc na programy z przyk*ad6w 4.2.1 i 4.3 uuwalainy, it 
Inttrukclt cyklu zotMy zMtotowan^do ztlcxenia powt6ne«rt 
wykonywania cl^gu InttrukcJI. Mozna powiedziea. ze jest to 
podstawowa tunkcja tych instrukcji. 

W przyWadzie 42 instrukcje cyklu spowoduj^ wykonanie ciqgu 
instrukcji (wfersze 50, 55. 60) n-razy. (wartoii n jest juz w tym 
momencie znana). a w pfzyktadzie 4.3 — wykonanie ci^gu ins- 
trukcji (wiersze 50. 60) — 1 5 razy. 

PrzykM4.4 

Napisa6 program na mnozenie danej iiczby x przez 1 0 koleinych 
liczb naturalnych. poczynajqc od zadanej ticzby 1. 
Program jest prosty i podajemy go bez schematu blokowego. 



10 

20 
30 
40 
60 
60 



REM Pr 
INPUT 
INPUT 
FOR J« 
PRINT 
NEXT J 



ZuKLdd 4.^ 

"x» ";x 

L TO L+10 

x;" « 



STEP 1 



Wprowadimy i wykonajmy ten program. Nizej prezentujemy 
otrzymane wyniki dla przyk*adowych danych. 



1 
2 
3 
4 
5 

6 
7 
8 
9 

10 



5 

10 

15 
20 
26 
30 
3S 
40 
46 
t 60 



W programie tym ciqg instrukqi powtarzanych (wn^trze p^tli) 
sktada si^ z jednej instrukcji: 
70 PRINT k; ; j ■ -J * x 

W instrukcji tej wyst^puje zmienna /. kt6ra jest zmiennq steruig- 
instrukcji cyklu napisanej w wierszu 40. Wykorzystujemy tu jei 
warto^e. W cl«ou tnstrukcil powUintanych {w wnf trau pf til) 
molna wykorzyttywae wartoie xmi^nnt] •ttru|4|c*J. ala ntt 
naltiy zml«nlae M wartoAcl. 

We wnf trzu p^tli mozna zmieniad; (ale si? nie zaleca) wartoS6 
zmiennej steruj^cej. Nowa wartos6 nadana tej zmiennej zostanie 
uwzgl^dmona przy kolejnym obliczaniu nowej warto^ci zmiennej 
sterujQcej i sprawdzaniu z wartoici^ kortcowq. 

Praykted 4.5 

Dany jest program. W programie tym w linii 70 nast^puje zwi^k- 
szenie wartoici zmiennej steruj^cej 0 3: 



4.5 



60 FOR i =1 TO IS 
60 PRINT i, 
70 LET i ai +3 
60 PRINT i 
90 NEXT i 

Instrukcje wn^irza pgili wykonane zostanq tyiko 5 razy zamiast 
t8 Wprowadtmy ten program i wykonajmy. Sprawdimy wynik z 
wynikiem podanym niiej. 
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i 

9 

13 

17 



12 
16 
20 



Prtyktad4.6 . 

Dany jest ciqg liczb naturatnych /^-../h. Napisac program na 
wybieranie sposr6cl tych liczb i drukowanie liczb podzieinych (bez 
reszty) przez zadanq liczb? p.{p-naturalne. o warlo6ci nie Wi'^kszej 
od waiiofici maksymalnej ticzby w ciggu tzn. p < In). 
a) schemat blokowy 



r START ^ 



/ a Ik / 




b) program 



10 REM PrzWK Ud 4.6 

15 PPZNT **wy bieranie z danego 
ciagu Liczb ridturainuch iiczb po 
dziecnych przez zadana Ciczbe 
P" 

20 REM Il-Pi«rwsza UCZbd W 
CidQU 

u-ostatnia Liczba v 
ciaau 

p-zadana Uczba 
£S INPUT "Lla ";li."IK5: 
30 INPUT "P= ";p 
40 IF p<=tK THEN GO TO 10© 
50 PRINT ""POdana LiCZba pa 

P'^jest wieKsza od ostatniej 
li czbg w cia-au s **; lk 
60 PRINT ' "wczy Jefiiy nou^a pit 
aK/nie) 

70 INPUT X«: PRINT X* 

80 IF X*«"tafc" THEN GO TO 30 

90 STOP 

100 PRINT '"Uczby podzieLne pr 
zez ";p"'w ciagu ";il;" l 

K 

105 PRINT ' 

110 FOR l=Ll TO LK STEP 1 
-i20 LET Z = L/P 

130 -IF Is INT (Z)*P THEN PRINT L 
•I ■* . 

140 NEXT L 
150 5T0P 



c) wvniki dla przyktadov/yrh darvc;^^ 

wybieranie z danego cia9u liczb 
naturainych liczb podzieinych 
prz€Z zadana Liczbe p 

Uczby podzieme przez 3 

W CiaQU &.•... .30 



9 la 15 18 21 



Przyktad 4.7 



30 



Napisac program drukowania lablicy wartosci funkcji In (x^-h 2) 
dia argumeniu x zmieniajgcego si^ w granicach od x7 do x2 z kro- 
kiem h. Wartosci x1. x2, h wczylywane s^ w czaste realizacji pro- 
gramu, Nalezy sprawdzic czy spelniajq one warunki: 
xl <x2ih>a 

a) schemat blokowy 



^ STAWT ^ 




7 — 




10 REM PfZyKtad 4,7 

15 PRINT "TabLi COwanie fuPiKCji 

LN»:xt£+2) V} przedziaie <xi,x2> 
^z KroKiea h" ^ ^ 

20 INPUT "Xl- ";xl,"x£= ";x2 

30 IF xl<X£ THEN GO TO 60 

40 PRINT '"zLe wartosci xl i X 

- xl>=x2"-"xl = ■•;xl,"x2 '^x 

50 GO TO 20 

60 INPUT •>.= 

70 IF h>0 THEN GO TO 9S 

80 PRINT •'"zia warto&c fcroKu h 

- h<=0 h s 
50 GO TO 60 ^- . . 

95 PRINT "'Dane: "i-xl a ";xi, 

100 PRINT X"," Lr. ^xt£+2)' 

110 FOR X=:xl TO X2 STEP h 
120 PRINT X,LN (X*X+£J 
130 NEXT X 
140 STOP 



dokonczenie na str. 22 
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doko6czenie ze str. 21 

c) wyniki dia przyWadowych danych 

Tabii cowanie funKcji LN«xr2+2) 
w przedziaie ixl,y.2> z KroKierft h 



Dane: xi = 1 



oraz 

TabLi cowanie 
prz€:dziaie 

zie wsrtosci 
XI ="5 



x2 = S h a 1 

Ln (xr£+a) 
1.038612-3 
1.791759S 
2.397S9S3 
£.8903716 
3.2958369 



furiKC ji LN (xt2+2) 

<xl,x2> z KfoKierh 

xl i x2 - Xl>=x2 

X2 X 



2i4 'wartosc ktoKu h - h<=0 
-1 



h 3 

Dane 

X 

X 

2 . 
3 
4 
5 



xl = 1 



X2 



Ln (xt2+2i 
1.09S61S3 
1.7917595 
2.3978953 
2.8903718 
3.2958369 



PrzyMad 4.8 



Napisat program drukowania tablicy wartosci f unkcji y zadanej 
wzorem: 

r x2 + 2 dIa X < 0 

y= < cos(x) + tn(x) dIa 0<x<4 

I fx^V4 + rxV/3 + (xr/2 dIa x>4 



. dta n — wartoSci zmiennej x 

Kolejne warto6ci zmiennej x majq by6 wczylywane w czasie rea- 
zacji programu. 
.) schemay?tokowy 



Q STAHT J 




D) program 

10 REH PTZyKLad 4.8 

15 PRINT "tabLi cowanift funKCji 
y dla- n-wartosci zmienne 

X" 

20 INPUT "n = ";n 

30 PRINT X"," 
35 PRINT 
40 FOR i=l TO n 
50 INPUT "X a ";x 
60 XF X<=0 THEN LET y3X*X+2: G 
O TO 90 

70 IF x>4.THEN LET y sSG^R <60R 
(X) J +Xt (1/3) +50R iX) : GO TO 90 

80 LET y=C05 X+LN X 

9© PRINT x.y 
100 NEXT i 
110 STOP 

.-w' '■• Jlci t y M..:. Aycn aanych . . 

xabLicowanie funKCji y dia 
n -wartosci zmiennej x 



-1 
1.5 

16 



6 

3 

0.47620231 
0. 10S61979 
6.519S421 



Na tym kortczymy omawianie podstawowych informacji o p?t- 
lach (cyklach obliczeniowych) oraz o instrukcjach cyklu FOR 
i NEXT. Wiadomo6ci le b^dg uzupetniane i rozszerzane w nasl^p- 
nych wyWadach. 

Zadania 

4.1 . Poda6 ile razy i jakie warto6ci zostang wprowadzone w trak- 
cie wykonywania nast^pujqcych f ragment6w program6w: 



10 REM ZftD.4. 1.1 

20 FOR X=:-21 TO -1 STEP 3 

30 PRINT "X = X + 1 

40 NEXT X 

10 REM ZftD.4. 1.2 

20 FOR i=:0 TO 5 

30 LET X=:-3 + i*0.25 

40 PRINT "X = '^X 

50 NEXT i ■ 



10 REM 2ftD.4.1,3 

20 LET b3:32 

30 FOR J = l TO b STEP 4 

40 PRINT "J J 

50 LET j3:j+2 

60 LET bab+2 

70 NEXT j 

80 PRINT *''b a b 

10 REM ZftO.4.1.4 

£0 LET 1=5 

30 FOR i=i-10 TO i+10 STEP i^BS 

a /2j 

40 PRINT "i a i 

50 NEXT i 

60 PRINT "^i = i 



4.2. Napisad nast^pujqce programy. tak. aby nie wyst^powaty 
w nich inslrukcje cyklu FOR i NEXT — wykorzyslac inslruk- 
cje IF: 

4.2.1. program z przyktedu 4.7 
4.2:2 program z przykladu 4.8 

Z.Z. 
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LOGO 



Program w j§zyku Logo sklada si^ z procedur — tyle 
wiemy juz z dotychczasowych rozwazah. Wiemy tez. ze 
procedury mogg bye wywotywane od r6znych parametr6w, 
a zatem wywoJane w odmienny sposob, mogg obliczac 
r6zne wartosci — dia innych danych, aibo tez, jak to s\§ 
niebawer" okaze. wykonywac zupeJnie inne obliczenia dIa 
r6znych wartosci parametrow. Zazwyczaj rozwigzanie 
problemu wymaga napisania wi^cej niz jednej procedury. 
Procedury te muszg mie6 mozliwosc porozumiewania si^ 
mi^dzy sobg, przekazywania sobie nawzajem wynik6w ob- 
Hczert. W tym celu w Logo przyj^to, ze kazda procedura 
moze zwracac wartosc. Wewngtrz tre^ci procedury nalezy 
umiescic sJowo WYNIK. a nast^pnie wielkosc, kt6ra po- 
winna bye d.ost^pna na zewngtrz procedury. Wielkoscig tg 
moze bye dowolny obiekt Logo, moze tez bye to dowoine 
wyrazenie, ktore po obliczeniu ..stanie si§" obiektem (wyra- 
zenie jest po prostu skomplikowang nazwg obiektu). Wy- 
konanie komendy WYNIK powoduje, ze nazwie procedury 
nadawana jest wartosc i wykonywanie tej procedury jest 
przerywane. NazwQ takiej procedury posJugujemy si^ tak 
jak obiektem. ktory jest jej wartoscig. Oto proste przyWady: 
1) Obliczamy pole i obj§tosc kuli o promieniu r, korzysta- 
jqc z procedury liczgcej pole kota o tym samym promieniu 

(zauwazmy. ze: % = ^^^S^): 



6ro KOiO 
WVNIK Pit 
JUZ 



r * 



PJSZ tpoU kwli O 

pl5Z 4 4( KCKO :r , . ^ 

PI57 tobjstoii "tu^i^ri 

PISZ 4 / 3 i{ :r }t KOtO 



2) Rysujemy wielokgt foremny. korzystajgc z procedury ii- 
czgcej, o jaki kqt powinien obr6cic si^ zoJw zaieznie od 
liczby bok6w wielokgta: 

? 

POWTOftZ :Lb inp :db Itwe i lesiop 



out 



OTO ILESTOPMI : I b 
UYNJK 36D / : lb 

Napis.'mv teraz procedure ..wieiokgt 2" tak: 



OTO SPlHftLfi 

jut 



4 ;.Qkok :k^i :skok 



i wywotajmy jg. Na ekranie me dzie zadnego rysunku, ale 
Logo zapyta, co zrobic z wynikiem zwracanym przez pro- 
cedure ..wielokgt". Komenda WYNIK przekazuje dane na 
wyzszy poziom i jednoczesnie zatrzymuje dziaJanie proce- 
dury. Jest to logicznie uzasadnione — po co jeszcze cos 
obliczac skoro wynik jest juz ustalony. Gdybysmy w ostat- 
niej procedurze ..wielokgt" zamiast WYNIK napisali STOP, 
nie otrzymalibysmy na ekranie w og6le zadnego efektu — 
procedura nic nie robi i nie ma zadnej wartosci. Komenda 



STOP po prostu kortczy, dziaJanie procedury. Na obecnym 
etapie znajomoSci Logo moze si^ wydawa6. ze uzywanie 
STOP jest pozbawione wi§kszego sensu. Tymczasem 
okaze si§ p6zniej, ze komenda ta jest bardzo potrzebna i 
czfsto stosowana. W angielskim Logo WYNIK to OUTPUT, 
a komenda STOP brzmi tak samo po polsku. 

Procedury rozwigzujgce ten sam problem komunikujg 
si§ mi§dzy sobg, wywoJujg si§ nawzajem. Gdy jakgs czyn- 
nosc nalezy powt6rzy6 wielokrotnie. najproSciej jest, gdy 
procedura, kt6ra t§ czynnos6 wykonuje, wywotata samg 
siebie. Jest to tak zwane wywotanie rekurencyjne. Logo 
pozwala na posJugiwanie si§ rekursjg w programowaniu. 
Co wi^cej. w Logo rekursja jest jednym z podstawowych 
narz^dz! programowania. DIa niekt6rych obliczeh program 
rekurencyjny jest najprostszym i najJatwiej narzucajgcym 
si§ rozwiqzaniem. Tak jest chocby przy iiczeniu ..silni" liczby 
naturalnej: 



OTO SILNIR :n 
UESLl :ri a 0 Cwy 13 
UY :n * SlLNlPl :n - 1 
0U2 

W procedurze te] pojawita si§ nader uzyteczna instrukcja 
warunkowa JESLI. Jej zastosowanie w tym programie jest 
oczywiste, szczeg6ty JESLI nieco nizej. Tymczasem 
wr6cmy do rekursji. S*uzy ona w Logo dosJownie do 
wszystkiego. Korzystajgc z niej mozna szybko i elegancko 
programowac. Spr6bujmy natomiast napisac jakikolwiek 
wigkszy program, zupeJnie nie postugujgc si§ rekursjq. Je- 
stem pewny. ze b§dzie to nieJatwe zadanie, jesli w og6le 
wykonaine. Logo dysponuje tyiko jednq instrukcjg iteracyj- 
ng (powt6rzenie) — jest to juz omawiana instrukcja 
POWTORZ. Wiemy juz, ze nie daje ona zbyt wielkich moz- 
liwosci — trzeba z g6ry okreslic. ile razy nalezy wykonac 
podane po sJowie POWTORZ instrukcje. W Logo nie ma 
instrukcji skoku w rodzaju chocby Basic'owego GO TO. 
Zatem zaWadanie p^tli z uzyciem skoku jest niemozliwe. 
Pozostaje rekursja. z kt6rej nalezy jak najwi^cej korzystac. 
Przy pewnej wprawie programowanie rekurencyjne jest 
bardzo naturalne i oczywiste. Trzeba si§ tyIko przestawic 
na ten spos6b myslenia. Latwiej z pewnoscig b§dzie tym, 
dIa kt6rych Logo jest pierwszym poznawanym j^zykiem 
programowania, trudniej tym, ktorzy przyzwyczaili si§ do 
programowania w j^zyku bez rekursji np. w Basic'u. Majg 
oni juz utrwalone schematy myslenia programistycznego i 
trudniej im przyjdzie znajdowac rozwigzania rekurencyjne. 
bo mimo woli najpierw b§dg si^ gtowic nad rozwigzaniem 
iteracyjnym (za pomocq p^tii) danego problemu. Tacy fani 
programowania najlepiej zrozumiejg to, co fachowcy wcigz 
powtarzajq: ze wazne jest nie tyIko to. by jak najszybciej ze- 
tknqc si§ z komputerem i programowaniem, ale takie, a 
moze nawet gJbwnie to. by zrobic to w spos6b wJasciwy — 
tak, aby od poczgtku „zakodowac" sobie odpowiednie od- 
ruchy myslenia programistycznego. A oto przyWad nad- 
zwyczaj prostej a dajgcej niespodziewanie ciekawe efekty 
procedury rekurencyjnej: 



OTO UlEL0KaT2 ;lb :db 
UYNIK ILESTOPNI : lb 
P0UT6R2 : lb Cnp :db IW 
: lb3 



i lestopni 



Jak wskazuje to jej nazwa. procedura rysuje spiral? — jej 
ksztatt jest zaiezny od podanych parametr6w: dtugosci do- 
dawanego odcinka i kgta, o jaki za kazdym razem obraca 
si§ z6Jw. Czytelnikom siedzgcym przy komputerze radz§ 
wypr6bowac dziatanie procedury ..spirala" dIa r6znych 
wartosci parametr6w. Prawda. ze rysunki sg interesujgce? 
Ci. kt6rzy testowali procedure zauwazyli juz, ze procedura 
..spirala" raz uruchomiona dziaJa bez kohca. Trzeba jg 
dokortC2«nl« na str. 24 
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przerywac naciskajgc klawisz BREAK. "Aby procedura 
kohczyta swe dzialanie bez brutainej interwencji z ze- 
wngtrz. trzeba w jej wn§trzu umie^cic instrukcj^ stopu, ob- 
warowang jakim6 sensownym warunkiem. Instrukcja wa- 
runkowa w polskim Logo zaczyna si§ od stowa JESLI, dalej 
nast§puje warunek (na przyWad: n=0) i dwie listy. Pierwsza 
z nich zawiera instrukcje, ktdre sg wykonywane. gdy^waru- 
nek jest spetniony, druga ~ instrukcje do wykonania przy 
niespeJnionym warunku. Pierwsza lista mus» bye podana, 
drugg mozna pomingc. Instrukcja warunkowa w procedurze 
..silnia" jest zapisana wtaSnie z pomini^ciem drugiej listy. W 
tej sytuacji Logo stwierdzajQC, ze zadany warunek nie jest 
spelniony, po prostu przechodzi do wykonywania nast§p- 
nej po JESLI instrukcji. Zauwazmy, ze procedure ,.siinia 2" 
mozemy r6wnowaznie zapisac tak: 



3to 5 

n;ae 
Jul 



lUNzns ; 
:n r 0 



n 



i3 CwtJ :n ^ si i 



W procedurze ..spirala" instrukcj§ warunkowg wykorzy- 
stamy dia zatrzymania rysowania spirali w odpowiednim 
momencie. Przyjmijmy, ze na przyWad procedura ma 
przerwac rysowanie, gdy jednorazowo kreslony odcinek 
b^dzie miat d}ugo6c wi^kszg niz 100: 



6T0 SPIRALftfi 
.je^Ll : OdL > 
NP ;OdL 
LU : K^t 
SPlR*=iLfi2 :Odl 
JU2 



100 CStop3 



W angielskim Logo zamiast JESLI nale5:y pisac IF. Inne 
zasady dotyczgce zaplsu instrukcji warunkowej sq takle 
same, jak w polsklej wersji j§zyka. A oto jeszcze jeden pro- 
■ gram w istotny spos6b wykorzystujgcy instrukcja warunko- 
wg i mozliwosc przekazywania wynikdw obliczeh przez 
procedury. Podany nizej komplet procedur oblicza i wypi- 
suje na ekranie pierwiastki r6wnania kwadratowego oraz 
wsp6frz^dne wierzchotka paraboli. b^dgcej wykresem 
funkcji kwadratowej o zadanych wsp6tezynnikach. Pro- 
gram doskonale nadaje si§ do weryfikacji rozwiqzan szkol- 
r^yrh ^.Tin^^ do orirohiRnici" w domu' 



? 

OTO R6v)KWPD ;4 
MiEJSCfiZeRDUE 



b 



ye «3 

P3 

PIS2 
P132 



PI32 - :b / ( 



: b 



b 

; c 
; C 



STO 



U2 



»3 
«3 



PIS2 
PIS2 



b : C 
b : C 



OTQ DELTP . 

WYNIK :b * 
out 



: c 
4 « 



OTQ XI : a : b : e 
( - : b • 1 



WY. ( - :b - .PJI JWXJSTtK DCLTfi :a 

OTO X2 : b : C 

HY I - -.b + f 

/ ( 2 * »a ) 
JUi 



KM DCLTfi ;a :b :c ) 



OTO UlffttCHOteK :b :C 
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PIS2 - :b / C 
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Nic dotychczas nie m6wili6my o zmiennych w Logo. A 
zatem zmienng w tym ji^zyku mozna utozsamiac z nazwq. 
Jest to jak gdyby etykietka przyporzqdkowana obiektowi 
Logo, a nie tak jak w niekt6rych innych j§zykach pudetko. 
do kt6rego wktada si§ wartosci zmiennej. Obiekty opatry- 
wane sg etykietkami za pomocg instrukcji przypisania. Po 
stowie PRZYPISZ naiezy podac nazw^ zmiennej. poprze- 
dzong cudzystowem, a nastf pnie warto^c nadawang tej 
zmiennej. Wartosc ta powinna miec normaing dIa Logo po- 
stac: liczby podaje si§ zwyczajnie. wartosci zmiennych 
powinny bye poprzedzone dwukropkiem (zapis taki jak dIa 
parametr6w procedur). nazwy funkcji (procedur zwracajg- 
cych wynik) wymienione normainie. Iisty jako ciqgi obiek- 
tow uj§te w nawiasy kwadratoWe (o listach i operacjach na 
nich b§dzie szczeg6towo w nast§pnych odcinkach), stowa 
(napisy) poprzedzone cudzyslowem. Na prryklad: 
PRZYPISZ "y 89 
PRZYPISZ "ala "kot 

PRZYPISZ "x :y ~ etykietka dIa x zostata przypisana takze 
warto6ci 89. Przypisywac mozna takze skompiikowane wy- 
razenia np: 

PRZYPISZ "Xl (-:b - PIERWIASTEK delta :a :b :C) 
/2 -h :a 

W angielskim Logo odpowiednikiem slowa PRZYPISZ jest 
MAKE. instrukcj§ przypisywania mozna wykorzystac 
chocby do zaprogramowania iteracyjnej wersji procedury 
„silnia": 



TO SILNIW3 :n 

iJU2 



t ^ 1 prry 



Na zakohczenie, jak zwykle. przypomnijmy sobie nowe 

stowa poznane w tym odcinku, A wi^c: 

PRZYPISZ (PRZYP) przypisuje wartosci nazw^: np. 

przyp "a11 to nadanie nazwy 
a liczbie 1 1 (ang. MAKE) 



WYNIK (WY) n 



STOP 



przypisuje procedurze wartosc i 
kohczy jej dziatanie (ang. OUT- 
PUT (OP)) 

koficzy dziafanie procedury 
(przerywa — powoduje ..wyjscie" 
z procedury) (ang. STOP) 



Jesli war akcjal akcja2 jeSli warunek jest prawdg wyko- 

nuje si^ lista — akcjal , w przeci- 
wnym przypadku akcja 2 (moze 
jej zresztQ nie bye) 

PIERWIASTEK (PKW) n daje (zwraca) pierwiastek kwa- 

dratowy n (ang.SQRT) 

-SIS 
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W bardzo wielu zastosowaniach matematyki korzy- 
sta sif z funkcji zwanych wieiomianaml. Wynlka to za 
szczeg6lnych %vtasnotel tych funkcji: 

— tatwo&6 obiiczenia wartoici wlelomianu za po- 
inocQ skortczone) liczby mnoiert i dodawaiS; 

— wykonywania podstawowych dziatart 
arytmetycznych: dodawania, oda)mowania, mno- 
ianla, dzlelenia, obliczania pochodnai i catkowa- 
nia; 

— ' moiliwoi^ wykorzystania wieiomianbw do apro- 
ksymacjl funkc|i ci^gfych z dowoin^ doktadnoft* 

Wykonanie takich podstawowych dzialai^ arytmaty* 
cznych, Jak dodawania i odajmowanle wlalomian6w, z 
reguty nia sprawia nam trudno&ci, gdyi sprowadza sif 
do redukcii wyraz6w podobnych. Natomlaat mnoienia 
I dzielanie wielomian6w wymaga nia tytko zna)omo6ci 
odpowiadnlch metod, ala clerpllwoici w wykonywaniu 
imudnych obiiczert. W takich przypadkach okazule sl^ 
pomocny mikrokomputar. Zamieszczony poniiaj pro- 
gram WiELOIMIANY wspomaga wykonanie tych opa- 
racli. Jast on tak skonatruowany, ia pozwaia w prosty 
spo86b rozbudowa^ swa moitlwoici o dodatkowe 
operac)a na wialomianach. 

Program WIELOMIANY opracowany zostal na mi- 
krokomputary: Commodore 64, Plus/4 i 16. Dia mikro- 
komputar6w Commodore 16 i Plus/4 naleiy wieraz 10 
zmieni6 wedtug wzoru (patrz 10 str. 26). 

Program WiELOIMIANY umoiliwia wykonanie dzla- 
tart (mnolenia i dzieienia) na wielomianach poataci: 

A(x) = anx" + an-ix"""* + ... + ao 
B(x) = bmx"* + bo^-ix'""' + ... +bo 

gdzie an 5^ 0; bm 5^ 0. 

ZapiauJ^c wielomiany (np. A(x) = 2x^ + + x — 1) 
podajemy: 

— stopiei^ wieiomianu (w naszym przyktadzle )est 
' r6wny4) 

dIa wsp6tczynnik6w r6inych od zera: numer 
wsp6(czynnika i jago warto&6 (nr 0, wartoid —1; 
nr 3. wartoit 1; nr 1, warto&6 1; nr 4, wartoid 2). , 
Zapisywanie wieiomianu kortczy si^ po podanlu war- 
toicl wap6tczynnika o numerze r6wnym stopniowi wie- 
iomianu. tstnieje moiliwoid modyfikacii postaci wle- 
iomian6w przy ponownym wykorzystaniu operacji za- 
pisu. 

W wyniku operacji mnoienia wieiomian6w A(x) I 
B(x) uzyakulemy wieiomlan W(x) = A(x) * B(x). W wy- 
niku operacji dzieienia wieiomianu A(x) przez wielo- 
mian B(x) otrzymamy iloraz W(x) i resztf z dzieienia 
R(x) spetnlaj^ce r6wnoi6: 

A{x) =W(x) - B(x) +R(x) 

Wyniki wyprowadzane 9^ wedtug konwencji zaplsu, 
tzn. numery i wartoicl wsp6tczynnik6w r6inych od ze- 
ra. 

Algorytmy mnoienia i dzieienia wielomian6w wyko- 
rzystywane w programie WIELOMIANY a^ odmienne 
od tych, Jaklmi posfugujemy si^ w obilczeniach rf- 
cznych. Zainteresowanych namawlam do przeiledza- 
nia tych aigorytm6w i na ich podstawie opracowania 
szczeg6lnych aigorytm6w dzieienia wieiomianu przez 



COMMODORE C-64 



dwumian x — bo tub tr6Jmtan kwadratowy 
x^ + b,x + bo. 

DIa os6b, kt6re bfd^ chciaty rozbudowai program 
WIELOMIANY. podajf kr6tkl opia kodu programu: 



1. wiersze 20—70: 



wyiwietlenle Informacjl o 
operacjach aktualnie moi- 
llwych do realizacji; wyb6r 
operacji; 



wiersze 90—160; 
wiersze 170—230 
wiersze 240—300 



wiersze 



zapis wieiomianu A(x) 
zapis wieiomianu B(x) 
wykonanie dzieienia wle- 
lomian6w A(x) przez B(x) 
310—350: wykonanie mnoienia wie- 
lomlan6w 



wiersze 360—560: wyprowadzenie wynik6w 
w zaieinoici od ostatnio 
wykonanej operacji 

wiersze 600—620: ..czyszczenle" ekranu po 
obejrzeniu partil wynik6w. 

2. zmienne sterujQce; 

T — okre&la aktualnie dostfpne operacje; 

D — okre&la matrycf, wedhig kt6rej naleiy wypro- 

wadzad ostatnio otrzymane wyniki. 

Uwaga: w tek&cle programu zamiast znaku $ uiyty Jest 
znak X 



0 REM «««WIELOMIANY»#« 

10 T»liLiIMU(39>«C»ie64ttP0KES328ei.e8 

P0KE!53261 0 

20 PRINTCHRw<147>"OPCJE«''«ONTC5OTO60 

30 PRINT'** - WYNIKI" 
40 PRINT'^S - MNOZENIE WIELOMIANCM A 
<X>*B<X>''3PRINT"4 - DZIELENIE WIELO 
MIANCM A<X>/B<X>*' 

50 PRINT'S - ZAPIS WIELOMIANU B<X)" 
60 PRINT^a - ZAPIS WIELOMIANU ACX)" 
iF-RINT'*! - KONIEC''sPRINTiINPUT''WYBI 
ERAWrOX 

70 PRINTCHR«<147)iON OX QOSUB 80,90 
, 170,.240,310,360sGOTO20 
80 END 

90 IFTMTHEN120 

J 00 INFWMAKSYMALNY STOF'IEN WIELOM 

lANOW" sMSXs IFM8X<0THEN100 

1 10 DIMA < MSX > r B < MSX ) , C < MSX+MSX > s T«2 

120 INPUT'AKTUALNY STOPIEN WIEL. A< 

X > " fSAXb IFSAX >MSX0RSAX< 1 THEN120 

130 INPUT"A<X>fl NR WSP."pNWX«IFNUX 

>SAXr«NWX<0T>iEN130 

140 INRjrA<X>i WARTOSCjACSAX-NWX 

) s IFi^X<>SAXTHEN130 

J50 IFA<0)w0THEN140 

1A0 RETURN 

170 IFT<2THENRETURN 



dokortczenle na str. 26 
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18« INPUT "AKTUALNY STOPIEN UIEL. B( 
X > " r S»X B IFSB'/. >MS>fORSBX< itHENlSO 
19« INPLIT*'B(X> n NR WSP.''sNU}<»IFNWZ 
>SBXORNU/<0THEN19d 

20« INPlJT''B<X>s WARTOSC''jB<SBX-NW/ 

) R IFNW/< >SBXTHEN19« 

21® 1FB<0>"«THEN20« 

220 IFT»2THENT=3 

230 RETURN 

2A0 IFtOTHENRETURN 

230 IFSBX >8AXTHENFORK«0TOSAX « C ( K ) «A 
<K) iNEXTnn"2iRETURN 

2^ S«SAX~SBX s FORK^^TOSAX t JP«K~SB/ s 

IFJP<CTHENJP"0 

2<f»5 JK'«K-l8lFK>STHENJK»8 

270 C<K>»08FORJ»JPTOJKsC<K>«C<K)+C< 

J>*B<K--J>sNEXTsC(K>«A<K>-C<K) 

280 IFK<»8THENC<K>"C(K>/B<0> 

290 NEXTsIFT«3THENT»4 

300 D»lsRETLKN 

310 IFK3THENRETURN 

320 FORK-0TOSAZ+8BX a JP-K-8A/ s IF JP< 0 

THENJP«0 

330 JK'=8B>CbIFJK>KTHENJK»K 

340 C(K>"08FORJ'«JPTOJKsC<K>«C<K)+B< 

J > <«A < K~ J > 8 NEXT 8 NEXT 8 IFT«3THENT«4 

350 n=3 8 RETURN 

3A0 IFT<4THENRETLIRN 

370 K«0 8 ONDGOSUB380 , 470 , 520 s PRINT 8 1 
NPUT'OBE JftZALES" p Z>: 8 RETURN 

380 PRINT''U8P0C..CZY'nNIKI ILORAZU .ROZ 

NE on ZERAb"8PRINT8U»1 

390 1FC<K>~0THEN410 

400 GO8UBA00sPRINT''W8P. NR'S-KjTABt 



12>''WART0SCb''C(K> 

410 K«K+l8lFK<"8AX--SBXTHEN390 

415 PRINTS INFWOBEJRZALEB" >Z«8PRIN 

TCHR:«(147> 

420 PRINT^WSPOLCZYNNIKI RESZTY ROZN 
E on ZERAb'bF-RINTbU-I 
430 IFC<K>»0THEN450 

440 RO8UBA008PRINT''USP, NRb'SAX-KsT 

AB < 1 2 > " WARTOSC B "C < K > 

450 K-K+1 B IFK<«8AXTHEN430 

4^ R-ETURN 

470 PRINT'l^SPOLCZYNNIKI RE8ZTY ROZN 
E on ZERAb'bPRINTbW-I 
480 IFC<K>»0THEN500 

490 GOSUB«008PRINT''WSP. NR''SAX~KrTA 

B<12>"UART08Cb"C(K> 

500 K'»K-HbIFK<=»SAXTHEN480 

510 RETURN 

520 PRINT'WSPOLCZYNNIKI ILOCZYNU RO 

ZNE on ZERAb'sPRINTbUNI 

530 IFC<K>«0THEN550 

540 GO8UB6008PRINT''USP. NRb'SAX+SBX 

-K 8 TAB< 12 > " WART08C s "CC K > 

550 K«K+1 8 IFK<='SAX+SBXTHEN530 

560 RETURN 

600 W»W+lBlFU<20THENRETURN 

610 W»0aPRINT8 INPUT''0BEJRZAl,E8'' » Z«b 

FORI«»0TO39s W( I >»F'EEK<C+I ) bNEXT 

620 PRINTCHR«<147>BFORI"0TO39ePOKEC 

+1 ,W< I > bNEXTbPRINTbPRINTsRETURN 



1 0 T«1 8 DIMW ( 39 > s 031 12 s COLOR0 r 1 r 1 s 
,C0L0R4,1,1 




ATARI 



32 



Program moie 9hiiy6 do nauki ai- 
fabetu Morsa'a z diwif kowym i wl- 
zualnym Jego odwzorowaniani iub 
po podlQCzenlu mlkrokomputera do 
nadajnika )ako modut usprawnlaf^cy 
pracf oparatora. 

KorzystajQC z tago programu mo* 
ina nadawa^ klawlatur^ Iub klu- 
czam. W obu przypadkach |att moi- 
Ifwa otrzymanla na akrania znak6w 
Morsa'a iub alfabatu tacirtsklago. 
Ponadto takia kody Jak: nazwa sta- 
cji, wywotania og6lna itp., nadawa- 
ne S4 w catoici przaz naci&nifcia 
okrailonago klawlsza. W tym celu 
nalaty powr6d6 do MENU wclska- 
|4C klawlsz ,. * \ a nastf pnia wcls- 



n^t klawisz z Htar^ wyst^puf^c^ przy 
danym kodzla. 

W mlalsce nazwy stac)i SPSiVJ na- 
laifcy wpisa^ swol4 nazwf. Dokonuja 
sif tago w L.136 i L.4000 (na kortcu 
ci^gu nalaiy pozostawl6 gwlazdk^). 
Gdyby uiytkownik zachclat rozsza- 
rzy6 zastaw znak6w alfabatu Mor« 
at'a, wystarczy wprowadzie do pro* 
gramu dana pomlfdzy L.20050 I 
L.20060 np. 20055 DATA (znak), 
(kod znaku). 

Szybkoi6 amitowania znak6w za 
pomoc^ kiucza zaiaty od sprawnoi* 
ci manuaina) uiytkownHca araz ia« 
koici klucza. Stf d tai w przypadku 



znakdw dakodowanych I otrzymy- 
wanych w postaci alfabatu taclrt- 
sklago na akrania monitora wpro- 
wadzono p^tlf L.2120,2140. W p^tli 
ta| zmiann^ CZ ustala sif czas, w 
lakim lest dakodowany wprowadzo- 
ny znak. Znilanna CZ obllczana 
last w L.2103 na podstawia dana| Z 
wprowadzona] w L.2102. 

Jako klucz nada|a sl^ nalbardzial 
przedstawlony na rysunku manipu- 
lator klucza alaktronowago. Przyfq- 
cza sif go do wyprowadzart nr 3, 4 i 
8 (GND) gniazda Joystick'a ozna- 
czonego na obudowla mikrokompu- 
tara Jako CONTRLLERS 1. Zamiast 
klucza molna stosowad r6wnlai^ 
joystick, Jednak powodu)a to zna- 
cznla wolnlaisza nadawanla. Prza- 
kazywanla sygnahi z mikrokomputa- 
ra do nadajnika dokonuja sif z koiS- 
cAwak nr 3 I 2 (GND) gniazda 
MONITOR. 
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5 REM **ftlfabet Morse' a** 

6 REM <C) J*Ytusz J. 

7 REM Warszaua 1986.7 
10 OPEN #1.4,0. "K^" 
12 ? ">"^POKE 752.1 
14 GRAPHICS 2 

16 POSITION 2.1:? i^g."-.^. 
18 POSITION. 2.3:? #6;"alfabet morse' a" 
20 POSITION 2.5:? #6j"<;C> 1986.7" 
22 POSITION 2.7'? #6; 

25 DIM B<12.9>.SP*(7>.L*<:10> 

26 DIM WL*<l>.DL*a>.fl*<6> 

28 DIM KL*(6>.flL*<l).K*<6) 

29 L*="0123456789" 

30 FOR E=0 TO 4 
35 FOR F«0 TO 4 

40 EF=E+F=FE=INT<0.3*F*E> 

45 B<:F.EF>=45 

50 B<F+6.EF+1)=46 

55 B(F+6.FE>=45 

60 b<;f+i.fe>=46 

65 NEXT F^NEXT E 

66 B< 10. 0)«45 ^ B< 10. 1 >=46 B< 10. 2>«4S 
B<10.3>=46^B<10.4)=45 

67 B<11.0>«45 = B<ll.n«46:B<ll.2>=46 
B<:il.3)=45^B<11.4>=46 

70 ? =? " Wcisrrij douolrta klawisz" 

75 GET #1.P 

80 GRfiPHICS 0+16 

82 POKE 752.1 

84 POKE* 764. 147 

100 ? 

110 POSITION 16.5=? " MENU " 

120 POSITION 7.7=? "fi - KORZYSTfiNIE 

Z KLflWIflTURY " 

130 POSITION 7.8=? "B - KORZYSTRNIE 
Z KLUCZft " 

135 POSITION 15.11=? " KODY= " 

136 POSITION 14. 13^? "D - SP5IVJ** 

137 POSITION 14.14=? "E - QRZ" 

138 POSITION 14.15:? "p - qrr" 

139 POSITION 14.16^? "G - QRT" 

140 POSITION 14.17:? "H - QRX" 

141 POSITION 14.18:? "I ^ QTH" 
160 GEJ #l.flM 

165 IF flM<65 OR fiM>73 THEN 160 
170 MR=flM-64 
180 GOTO 1000*Mfl 

1000 REM WYKORZYSTflNIE KLfiWIflTLtRY 
1010 GOSUB 1500 
1020 ? 

1025 IF Rlf=42 THEN 100 

..4 

1030 G£T #1.X 

1032 IF X=42 THEN 1810 

1033 IF RK=e5 THEN ? CHR*<X); 

1035 IF X>46 AND X<58 OR X*61 THEN 140fe) 
• 1040 WL4f«CHR$<X> 
1050 RESTORE 
1060 RERD DL*.fi* 
1065 L=LEN<fi*> 

1070 IF DL*=»f THEN ?*'BRflK DfiNYCH 4 
i GOTO 1030 

1080 IF DU*=WL* THEN 1200 

1090 GOTO 1060 

1200 FOR D=l TO L 

1210 IF flK=65 THEN 1230 

1220 ? fl*<D.D>j 

1230 IF ftSCD.D)**-* THEN GOSUB 1300 
:GOTO 1245 

1240 FOR F=l TO 8= SOUND 0.20.14.15: 
NEXT F 

1242 FOR F=l TO 10: NEXT F 

1245 SOUND 0.0.0.0 

1250 NEXT D 

1255 ? " 

1260 GOTO 1030 

1300 FOR F=l TO 30 

1310 SOUND 0.20.14.15 



1320 NEXT F 
1330 RETURN 
1400 Z=X"48 

1402 IF Z=13 THEN Z=10 

1404 IF Z=-l THEN Z=ll 

1410 FOR FF=0 TO 4 

1415 IF fiK=65 THEN 1425 

1420 ? CHR*<B<Z.FF>>; 

1425 IF B<Z.FF>=45 THEN GOSUB 1300: 

GOTO 1432 

1430 FOR U=l TO 8:SC»UND 0.20.14.15: 
NEXT U 

1431 FOR U=l TO 10:NEXT U 

1432 SOUND 0.0.0.0 
1435 NEXT FF 

1440 ? " 

1450 GOTO 1030 - 
1500 ? ' ' 

POSITON 7.5:? *fco CHCESZ Nfl 
EKRfiNIE ?» 

1520 POSITION 10.7=? "ft - alfabet" 
1530 POSITION 10.8:? "B - kod Mors' 
1540 POSITION 10.10:?"* - powrot 
do weriu.« 

1550 GET #l.fiK 
; 1560 RETURN 

2000 REM WYKORZYSTflNIE KLUCZFI 

2004 POKE 764.255 

2005 GOSUB 1500 

2007 IF flK=65 THE;N 2100 - 

2008 IF flK«42 THEN 100 
2010 ? ">» 

2015 ST=STICK(0> 

2020 IF ST«11 THEN ? ^FOR F=:l T 
,0 8= SOUND 0.20. 14. 15: NEXT F 
2030 IF ST«7 THEN ?"-**;: FOR F=l TO 
30: SOUND 0.20. 14. 15: NEXT F 
2040 SOUND 0> 0.0.0 
2050 IF PEEK<764>«7 THEN 2004 
2060 GOTO 2015 

2100 POSITION 10.14=? *CZflS DEKODOW 
RNIR ? * 

2101 POSITION 17.15:? "<:i0 - 60>" 

2102 POSITION 27.14:? j = INPUT Z 

2103 CZ=INTa20/Z> 
2105 ? 

2110 DK=l 
2115 KL*="" 

2120 FOR R=l TO CZ 

2121 SOUND 0.0.0.0 
2123 ST=STICK<0> 

2125 IF ST=11 THEN 2210 
•2130 IF ST=7 THEN 2230 

2133 L«LEN(:KL*> 

2134 IF L=6 THEN 2175 

■2135 IF PEEK<764>=7 THEN 2004 
2136 IF L«5 THEN 2300 
2140 NEXT R 
2170 IF L=0 THEN 2120 
2175 RESTORE 
2180 READ ftL*.K« 
2185 IF fiL*="*" THEN 2400 
2190 IF K*«KU THEN ? Fl.*i :GOTO 2110 
2195 GOTO 2180 
2210 IF DK>6 THEN 2400 
2212 KL*<DK.DK>="," 
2215 FOR F«l TO S^SOUND 0.20.14.15 
:NEXT F 
2220 DK=DK+1 
2225 GOTO 2120 
2230 IF DK>6 THEN 2400 
2232 KLt(DK.DK>=""" 
2235 FOR F=l TO 30: SOUND 0.20.14.15 
'NEXT F 
2240 DK=DK+1 
2245 GOTO 2120 
2300 FOR G=0 TO 11 
2310 FOR E==0 TO 4 
2315 N«E+l 



dokortcitnl* na str. 28 
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2317 IF G*ll ftND RSC<KL*<N.N>>OB<ll 
,E> THEN 2406 

2326 IF flSC<KL*<H>N>)<>B<G.E>THEN 2 
330 

2323 IF E=«4 AND ftSC<KLt<5.5>>=B<G..4 
> THEN 2333 

2325 hEXT E — 
2330 NEXT G 

2333 IF G«10 THEN ? ^GOTO 2110 
2335 IF G«ll T^EN ? ^GOTO 2110 
2350 ? Gi 
2360 GOTO 2110 

2400 ? "BRftK OKRESLENIfl ZNftKU"; 

2410 GOTO 2110 

4000 SP««"SP5IVJ*" 

4005 LS»L£N<SF*> 

4010 GOSUB 4500 

4020 O3T0 1S0 • ' 

4500 N«0 ■ 

4510 N«N+1 

4515 IF LS>4 AND N=3 THEN 4800 

4520 RESTORE 

4530 READ DL*.fi* 

4540 IF THEN RETURN 

4550 IF DL*=SP*<N,N) THEN 4570 

4560 GOTO 4530 

4570 L=LEN<fl*> 

4580 FOR- F»l TO L 

4590 IF fl*CF,F>=«." THEN GOSiJB 4930 

^GOTO 4690 

4610 GOSUB 4900 

4690 NEXT F 

4700 FOR- £»! TO 12 

4710 NEXT E 

4720 GOTO 4510 

4800 FOR M«l TO 10 



4810 IF L*<M,ri)-SP*<N.N.) THEN 4820 

4815 NEXT M 

4820 W=H-1 

4830 FOR F=0 TO 4 

4848 IF B<MM.F>=46 THEN GOSUB 493© 

^GOTO 4860 

4850 GOSUB 4900 

4860 NEXT F ' r- . 

4890 GOTO 4510 ^ . 

4900 FOR E=l TO 19 

4910 SOUND 8.20.14,15 - \ . ' ^ 

4920 NEXT E ... 

4930 FOR E-1 TO 5 

4940 SOUND 0.20,14.15 , 

4950 NEXT E 

4960 SOUND 0.0,0,0 

4970 FOR E«l TO 5 

4975 NEXT E 

4980 RETURN 



5008 SPS*"QR2»- 
5018 GOSUe 4509 
5029 GOTO 160 
6000 SP*«-©Rft*" 
6010 GOSUB 4500 
6020 GOTO 160 
7000 SP*«-QRT«- 
7010 GOSUB 4500 
7020 GOTO 160 
8000 SP$*"QRX*« 
8010 GOSUB 4509 
8020 GOTO 160 
9000 SP»="GTH*" 
9610 GOSUB 4500 
9020 GOTO 160 
20000 DftTfl fi..-.B.-, 

20010 OflTft J,. .N. 

20020 DfiTfi W,— .F,,. 
20030 DftTfl D.-...R., 
20040 DftTft L..-..,Q. 
20050 DftTft U...-,?.. 
20060 DRTfi *.« 



*0. 



w » • • 



3 8 4 
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Wideo — 
straszak 



Cokoiwiek zrobiliby6my — b^dzk 
i\e. Nie byto w PoJsce komputer6w - 
ile. Sg — tez z!e. Taka ocena sytuacj 
przypomina starg anegdot^. Znacie' 
No to, posiuchajcie! Ot6z w knajpc* 
siedzi kifku ..podci^tych" facetow. Nu 
dzi im si^. Spostrzegajg przy sgsiednin 
stoliku chudego, biadego faceta w oku 
iarach. Rozmowa ..zm^czonych" nabie 
ra rozmachu. 

— Trzeba by mu dad w ucho! 

— Aie za CO? 

— Spytaj si§ go czy byl kiedys v. 
Gr6dku... 

— Ajakby*? 

— Dasz mu w ucho. 

— A jak nie byl? 

— Tez dasz mu w ucho! 

Ludzie nam niech^tni zawsze znajd., 
powod. aby pr6bowac!; wbic przyslo 
wiowg szpii^. Tym razem okazig staK 
si^ minikomputery i videokasety. Nie 
dawno iondynski dziennik „The Times 
opubiikowat arlykul pod f rapujgcym ty 
tutem: „Pocz^tek innych wojet 
gwiezdnych". Autof, m.ister Roge' 
Boyes rozwodzit si§ dfugo i bole^nie m-. 
temat zagrozenia. jakie rzekomo dl.*: 
Polski i w og6le kra|6w sociaiisty 
cznych sianowig owe minikomputery 
videokasety. Dtaczego? 

Poniewaz mozna je wykorzysta^ 
do antypar^stwowej roboty. np. v. 
zaciszu domowym. wyswieiiac dia rc 
dziny, a co gorsze dIa sgsiadow. ta^ 
np. film jak ..Amadeusz" Milosa Formi. 
na. kt6ry z pewnoscig uwazany jes: 
..tam", to znaczy — u nas. za ..niebez- 
pieczny ladunek*'. ! wtaSme, diatego, 
nrnolismy okazj§ zobaczyc go przed pa- 
roma miesigcami na ..Konfronta- 
cjach*86'\ 

Henryk KAWKA 



JftNUSZ niLLER 
SHfiRP PC- 1500 
S P I R A L fl 

10: BEEP 10, 100, 10 
0 

20:*' ft": CLEAR : 
USING :WflIT 0: 
RADIAN s GRAPH 

30: INPUT "ILE SPI 
RALi ? N="JN:N 
«ABS N:N=INT N 
: IF N*0GOTb 10 

40: INPUT "ILE ZUI 
TEK ? Z="J28 2» 
ABS Z:2=INT Zi 
IF Z«8G0T0 10 

50:A=2*JI/NtDin W< 
N,2> 

60iS-nv40:Q«lxCZ* 
2): PRINT "N"iN 
J.. 2«'jz 

70; FOR K=;0TO CN-1 
) 

80:ni»n+ltliCf1, 1)»6 

0yCOS CKYA) 
90:U<n,2)»5B*SlW 
CKfA). 
100:NEXT K ^ 
1101^LINE 0), 

9:S0RGN 
120SFOR K^ITO N 
130:X«WCK, l>:YffU<K 
,2) 




140:LIHE -<0,0)-<X 

, Y), 9:S0R6N 
l50;T*=0iR*0*><2«0sY 

2»0tU«U-»-i:IF U 

=4L£T U-'l 
160: COLOR U 
170: FOR J«1T0 2 
J 80: FOR L»lTO 80 
190sXI«X2:Y1-Y2: T= 

T+S:R=R+0:X2=R 

yCOS T 
200:Y2=R*SIN T: IF 
' (K-INT CK/2>« 

>*0LET X5=^-X2 
210:LINE -<X1, Y1>- 

(X2, Y2>, 1 
220: NEXT L I NEXT J 
230: LINE -<X2>Y2)- 

(0, 0>4 9 
240: NEXT K: TEXT 
250: END 




Foto: J. Zelman 




ZAKLADY ELEKTRONICZNE „MICRONET" 

ODDZiAt Qdai^skl 
ul. Kraslckiego 9 
81-836 Sopot 

tel. 51-13-17, 41-32-29 w. 36, 65 
tlx 051-2299 

ODOZtAt BYDGOSKi 
ul Sobietzewtka 17 
85-717 Bydgotzcx 
5 J tel. 42-29-32 

oferu|4 do sprzedaiy: 
TERMINAL EKRANOWY SERII AN-2000 

— 24 wiftrue po 80 mak6w 

— duia i mate llt«ry. alfabat polski 

— intarfa)s izeregowy V-24 

Wykorzystu|4C ww. tarminai inatalulamy r6wniei wNilodo- 
stf pne lyatemy na mikrokomputery typu IBM PC 
OFERUJEMY PONADTO WSPCtPRACf W ZAKRESIE: 

— konstrukc|i I oprogramowanla mlkroprocaaorowych sy- 
stam6w kontroino-pomiarowych 

— elektronicznego sprz^tu medycznago 

— montaiu i uruchomiert urzfdzert tiaktronicznych w malych 
aarlach na podttawie ^aconaj dokumentac}! technlcznej 

ZAPRASZAMY! 
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LIGA MYSLACYCH 



Zadanie nr 1 



Na drodze o dtugosci 720 m przednie koto wozu wykona- 
♦o 0 96 obrot6w wi§cej niz tylne. Gdyby obw6d kazdego ko- 
}a by} 0 p6t milimelra mniejszy, to przednie koto na tej 
samej drodze wykonatoby o 1 28 obrot6w wi^cej niz tylne. 

Obliczyc dJugosc obwodu kazdego koJa. 



Zadanie nr 2 

W szkole przeprowadzono ankiet^ wsr6d uczni6w na 
temat nowo wprowadzonego programu nauczania z ma- 
tematyki. Jeden z uczni6w, mitosnik tamigtowek w rubryce 
wiek ankietowanego wpisat: jesii m6j wiek, kt6ry b§d§ miaJ 
za trzy lata, trzykrotnie zwi^kszycie i odejmiecie od tego 
powi^kszony trzykrotnie m6j wiek, kt6ry miatem trzy lata 
temu. to dowiecie s\§ ile mam obecnie iat. 

Zadanie nr 3 

Na przebycie drogi o dJugosci 520 km. jeden podr6zny 
zuzyje 0 3 dni wi§cej czasu niz drugi, kt6ry przebywa 
dziennie o 12 km wi^cej niz pierwszy. We dni potrzebuje 
kazdy z nich na przebycie tej drogi? 

Zadanie nr 4 

W tr6jwymiarowej przestrzeni danych jest n-punkt6w. z 
Worych zadne cztery nie iezg na jednej ptaszczyznie. Ile 
prostych i ile ptaszczyzn wyznaczajg te punJ<ty? 



Rozwi^zania zadan prosimy przesylad do redakcji do konca 
listopada br., z dopisktem „Liga Mysl^c>'ch''. Punktacja zaiezy 
od liczby prawidtowych rozwi^zan. Wsrod uczestnikow rozlo- 
sujemy ksi^zki, a na zwyci^zcow „Ligi" czekaj^ dodatkowe 
cenne nagrody — niespodzianki. 



Odpowiedzi do zadart z 4 nr. „IKS-a" 



Zadanie 1 

Z warunk6w zadania wiemy. ze z kazdq godzing r6znlca 
wskazart zegar6w rosnie o 3 minuty. Zatem, od momentu 
wyregulowania i nakr^cenia. 1 godzin^ r6znicy wskazah, 
zegary osiggn§ty po 20 godzinach. Stgd, do chwili zatrzy- 
mania. budzik pospieszyt si^ o 20 minut. Z tego wynika. ze 
w momencie zatrzymania zegar6w byta godzina 7.40 (od 
chwili, w kt6rej stangJ budzik tj. od godziny 8.00 odejmuje- 
my 20 minut). Wyregulowanie i nakr§cenie zegarow odbyto 
si§ 20 godzin wczesniej, tj. o godzinie 1 1 .40 dnia poprzed- 
niego. 



Zadanie 2 

Wszystkich mozliwosci wylosowania trzech r6znych cyfr 
z dziesigciu, a wi§c wszystkich kombinacji 3-elemento- 
wych z 1 0 jest: 



(f^) ~ 3! (10-3)! 20. 



Sprzyjajgcych kombinacji czyli takich, kiedy suma 
cyfr r6wna si§ 9 lub 18 jest tyiko 14 (018. 027. 036. 
045. 126. 135. 234. 378. 468. 567. 918. 927. 936, 
945). A wi§c prawdopodobiertstwo wyciggni^cia „na 
chybit trafiJ" sposr6d 10 cyfr od 0 do 9 trzech takich. 
aby mozna z nich uJozyc liczby podzieinq przez 9 
wynosi: 



P 



14 



7 



Zadania 3 



Jezeli n-2 zawodnikow rozegrato mi§dzy sobg parti^ 
kazdy z kazdym, to rozegrano tyie partii iie jest 2-elemen- 
towych kombinacji ze zbioru n-2-elementowego: 



/rv:2\ _ (n-3)(n-2) 
I 2 ^ 2 



Gdy zaJozymy. ze pozostali dwaj gracze nie rozegrali par- 
tii mi^dzy sobg. to z warunk6w zadania wynika, ze: 



(n-3)(n-2) 



+ 10 + 1 =55. 



2 

czyli — 5n — 82 = 0. 

Rownanie to nie posiada rozwigzah w zbiorze liczb natu- 
ralnych a zatem zatozenie. ze dwaj gracze nie rozegraii 
mi^dzy sobq partii byfo bf^dne. 

Zafozmy wi§c, ze pozostali dwaj gracze rozegrali mi^dzy 
sobg partly. Wtedy otrzymamy nast^pujgce r6wnanie: 



(n-3)(n-2) 



+ 10 = 55 



czyii n' 



5n - 84 = 0. 



Rozwigzaniem tego r6wnania sg = 7, kt6re odrzuca- 
my i n2 = 12. 

Zatem w turnieju szachowym brato udziat 12 zawodni- 
kow. a wspomniani dwaj gracze rozegrali mi§dzy sobg par- 
ti?- 

NAZWISKA 0S6B, kt6ra wyloiowaty ksiqiki za 
poprawna rozwiQzania zadart z 4 nr. „iKS-a". 

1 .* Krzysztof PAROL z Minska Mazowieckiego (05-300 
ul. Obror^c6w Stalingradu 27/1 1 ) 

2. Bartosz BOBER z Rzeszowa (35-106 ul. Wnukow- 
skiego 47/44) 

3. Witold 2YtA z Warszawy (02-1 23 ul. Korotyhskiego 
19a/32) • 

4. Beata BIESZK ze Szczecina (70-136. ul. 9 Wa- 
ja 8/21 



Pocztowa gietda 



RozwiQzanie krzy26wki z „IKS-?" nr 4 

Hasto brzmi: ,.Z komputerem do szkoty". Bony 
pieni^ine (1000 zt) wylosowall: MacleJ Janik — 
Cz^stochowa, Graiyna Kolbusz — Brzeg, Adam 
Kardasz ^ Gdartsk, Jarostaw Pl^stka — Lucyno- 
wo/Ostrowite, Slawomir Rydel — Kolno. 

Nagrody kslqikowe otrzymuiq: Monlka Andrze- 
Jewska — Ostrot^ka, Robert Kallsz — Wroctaw, 
Tomasz LaplrtskI — Pruszk6w, MichaJ SutkowskI 

— Tarnobrzeg, Dariusz DomartskI ^ Zar6w, Ade- 
la Kopyclok — dwl^tochtowice, Sylwester Bak 

— Lublin, MIrostawa Ortowska — Ktodzko, Beata 
Bobowska — Wroctaw, Barbara Siarklewicz — 
Sosnowlec. 



V\NACA - KONKURS! 



Milosnicy literatury science fiction z oryginal- 
nymi pomystanni 1 fantazjg! Kazdy z Was ma szansg 
sprobowac swoich sil w naszym konkursie na nowe- 
!§ !ub opowiadanie pod hastem ..Przed nami XXi 
wiek". 

..Najfantastyczniejsze" utwory zostan? uhonoro- 
wane przez ziemskle jury, ktore przyzna nagrody: 

l~15tys. ztotych 

II — 10 tys. ztotych 

III — 5 tys. ztotych 

Nad ich sprawiedliwym 1 obiektywnym podziatem 
czuwac b§dzie komputer. Autorzy materiatow zakwa- 
iifikowanych do druku zostang ponadto usatysfak- 
cjonowani godziwym honorarium zgodnie z obowig- 
zujgcymi stawkami. 

Entuzjastow informatyki i komputerow nie musimy 
przekonywac, ze i fantazja musi miec swoje Scisle 
parametry. A wi?c mile widziane bgd? prace o obj?- 
to6ci nie przekraczaj^cej 1 5 stron maszynopisu bgdz 
czyteinego rgkopisu. 

Jak bgdzie wyglgdal nasz giob opanowany przez 
komputery n-tej generacji. w jaki sposob informatyka 
zmieni zycie czlowieka XXi wieku, jak homo sapiens 
utozy sobie koegzystencjg z rozumnymi maszynami? 
To tyiko niektore sugestie organizatorow dotyczgce 
tematyki nadsytanych utworow. 

Prace opatrzone godlem naiezy nadsylac do kon- 
ca grudnia, dolgczajgc kopertg podpisang godlem. 
zawierajgcg dane o autorze, pod adresem: 

JKS" — ul. Grzybowska 77 
00-950 W-wa 

PrzychylnoSci weny, zdyscyplinowanej fantazji — 

zyczyREDAKCJA 

PS Zastrzegamy soble prawo plerwszertstwa 
publlkacjl prac nagrodzonych oraz wybranych 
spoir6d nie nagrodzonych. 



W naszym komputerlandzie 



W zakresie ksztalcenia intelektualnego pracowity Spek- 
trus ..zabezpleczyt" dia kierowanego przez slebie zespotu 
robot6w uznanego lektora. Przygotowat on wyktad oraz dy- 
skusj§ panelowg na temat: ..DIaczego w komputerlandzie 
jest tyle znak6w nlerdwnosci, a tak mato r6wnania do 
przodu?". 

Zaplanowano trzy spotkania, w kt6rych wzig6 miaty 
udzial wszystkie roboty a takze sam Spektrus. Prelegent 
jednak najzwyklej przynudzat i po dwudziestu minutach 
pierwszego wyktadu okazato s\§, ze potowa miejsc na sali 
jest pusta bo niesforne roboty wycofaty s\§ po angielsku, 
zeby nie zwracac uwagi. W potowie drugiego spotkania wy- 
tgczono swiatto i zahim znalezlono swieczki lektor oberwat 
po gtowie i m6gt jedynle bredzic. Tym samym prowadzit 
wyktad na takim samym poziomie, jak w pierwszej cz^sci. 
Do trzeciego spotkania nie doszto. bo wczesnlej ktos zam- 
kngt lektora w ustronnym miejscu I zgubit klucz od skobel- 
ka. Kledy go wyswobodzono sala byta juz pusta. 

Aby unikngc takich sytuacji w przysztosci 1 zapewnic 
wysoki poziom prelekcji zapobiegllwy Spektrus opracowat 
kompetentng i wszechstronng sciggg dIa prelegent6w na 
kazdg okazj§. Jego zdanlem najlepsze efekty mozna uzy- 
skac jesli jedng trzecig odczytu stanowig stare, odwieczne 
prawdy. zeby stuchacze doszli do wniosku. ze wcale nie sg 
gtupi — a przeciwnie. Srodkowg cz§§c naiezy poswi^cici 
zagadnieniom nowym lecz podanym w przystgpnej formie, 
by stuchaczom zdato si§. iz z odczytu odnoszg korzysc. 
Ostatnia cz§sc powinna traktowac o takich czy innych 
zjawiskach j^zykiem niezrozumiatym, aby stuchacze nie 
stracili szacunku dIa naukl. No 1 osoby prelegenta... 

podglqdah Eugenlusz MLECZAK 




fi^M GS^ 

niirawi '.m' ITT?, \ 
Rys. Michat Przybylowski 



Przepraszamy... 



JKS" nr 5, program „Wykres funkcjl" — powtarzamy 
nieczytelne fragmenty 

500 hili WYZNflCZENIE WSP. SKflLl" 

510 XZ=XK-XP:VZ»YG-VD 

520 DX»XZ/239'DY=YZ/'159 

S30 CYaINT<flBS< YD*<YD<0> >/'DY> ' CY«ie0-CY 

540 CX=INT<fiBS<XP*<XP<0>)/'DX)+40 
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Krzyz6wka nr 6 

a b c d e f g h i j U 





POZiOMO: 1-a) Kapelusz lub czfi6 sllnlka, 2-h) 
Praca w polu, 3-c) „Wypadek" na ringu, 4-a) Koleianka 
Oil, 4-h) Jed«n z gromady 8tawonog6w, 5-d) Tkanlna 
runowa Uib irUasto w Indlach, 7-a) Swiath>czuty barwnik 
w pr^lkach sistkdwkl oka, 9-e) Rodza| kaktusa, 11 -a) 
Miasto w ZSRR, 13-a) R6| metaor6w. 13-g) Port nad 
Niemnem, IS-f) GryzoA z komputera, 16*a) 
Wygnanlec. 

PIONOWOr 1-a) Watna dia koblaty, 1-c) Rzeka lub 
Imif ieAskie, 1-a) Wyst^puie w i^drza i cytoplaimie 
kaidcj kom6rkl, 1-h) Wimlk, 1-k) Kaptan w przed- 
chrze*cliaA8klei Litwia, 6*a) Mieszkaniec Nllu, 6-c) 
Imlf m«8kl«, 6-1) W piosence nauczycleika..., 9-g) De- 
formacla lektoniczna warttw akalnych, 11-i) Autobus 
lub rzeka, 13-b) Tartcowata z nltk^, 13-d) Tajamnica 
Tybetu, 13-1) Zezwolenie na pobyt za granlc4» 13-k) 
Pahstwo na Phv. Arabskim, l5-f> Jedna ze stron konta. 

Hasto: 9-1. 7-a, 15-i, 13-d» 9-1, 2-h, 15-f, 9-c, 13-|. 2-K, 
15-f, 13-d, 3-d, 9-f, l-h, 5-e. 5-g, 14-k, 1-g, 5-h. 12-|, 
9-1, 13-b, 14-d, 16-d, 11-g, 15-h, 4-c. 

RozwiQzanIa (tyiko hasto) proslmy przesyla6 
pod adr«sem r«dakcii do kortca llstopada. Wir6d 
Czytelnik6w. kt6rzy nadeilq prawlcttowe rozwiq* 
zania rozlo8u|emy. bony pianifiiM f nagrody 
ksiqikowe. 




Oto najnowtxy produki firmy ICt — DRS 300. Na)wai- 
n1t)9z# Jtgo K8l«t9 )tst modutowa kenstrukcja; podstawow* 
kenf iguracjf moina tatwo rozbudowy wa6 dot#ezai«c kotofnt 
urz^dzania. H\m ma przy tym pi«tanlny kal>ll; fortmna modufy 
Idaainla pa«u|4 do tlabla, a molna ja ustawl^ nawat w pod- 
r^cznai bfbMotaexea. 




Ryt. MIchatPrzybytowaM 
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